# UNTESTED
# after opening files

@tosort = <TOSORT>;
chomp @tosort;

@sorted = map { $_->[1] }
          sort { $a->[0] cmp $b->[0] }
          map { [ (split('|', $_))[1] , $_ ] } @tosort;

for (@sorted) { print SORTED "$_\n" }