while(my $line2 = <INPUT>){
	chomp($line2);
	my @splitStudent = split(' ', $line2);
	$size = @splitStudent;
	my $keys = splitStudent[0];
	my $Lname = splitStudent[1];
	my $Fname = splitStudent[2];
	my $Major = splitStudent[3];
	my $Year = splitStudent[4];
}
my @IDSorted = sort(keys(%student));