Sorry about my mistake in reading your question:
Replace this:

my %hash;
while ($whatever = <TOSORT>) {
  chomp $whatever;
  my($name,$number) = split(/\|/, $whatever);
  $hash{$number} = $name;
}

foreach my $number (sort keys %hash){
      my $name = $hash{$number};
      print "$name\|$number";
}
[download]

artist