#!/afs/athena/contrib/perl/p

while(<>){
push(@lines, $_);
}
@lines2 = sort bysecondword @lines;
for(@lines2){print;}

sub bysecondword {
        @aa = split(' ', $a);
	@bb = split(' ', $b);
	($aa[1] cmp $bb[1]);

}