my $whatever;
my @sortedarray;

open(SORTED, ">sorted.txt");
open(TOSORT, "tosort.txt");

while ($whatever = <TOSORT>) {
  chomp $whatever;
  my @sortedarray = split(/\|/, $whatever);
  
  #@sortedarray = sort($sortedarray[1]);
  
  print SORTED "$sortedarray[0]|$sortedarray[1]\n";
}

close(TOSORT);
close(SORTED);

print "done!";
exit;