Help for this page

Select Code to Download

Select or download this

777666555 Smith Tom RM So
111222333 Jones Mary SD Fr
555444333 Johnson Lee IE Sr

Select or download this

while(my $line2 = <INPUT>){
    chomp($line2);
...
    my $Year = splitStudent[4];
}
my @IDSorted = sort(keys(%student));