#!/usr/bin/env perl -w
use ClassList;

$CS_I = new ClassList;
$MATH_I = new ClassList;

$s = new Stu;

@thenames = ("Mickey Mouse", "Donald Duck", "Monica Lewinsky", 
	     "Bill Clinton", "Jesse the body Ventura", "Madonna",
	     "George Bush");
@thenumbers = (234, 345, 456, 567, 678, 789, 890);

for (my $i=0; $i<4; $i++){
    $s->setname($thenames[$i]);
    $s->setnum($thenumbers[$i]);
    $CS_I->insert($s);
}

for (my $i=4; $i<7; $i++){
    $s->setname($thenames[$i]);
    $s->setnum($thenumbers[$i]);
    $MATH_I->insert($s);
}

$CS_I->printlist;
print "\n";
$MATH_I->printlist;