You are not sorting the data all in your code. For sorting you require to get all the data in memory and then sort. You can do by storing in a hash. Assuming your names appear only once in your data, try following code.

my $whatever;
my @sortedarray;

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

my %hash;
while ($whatever = <TOSORT>) {
  chomp $whatever;
  my($name,$number) = split(/\|/, $whatever);
  $hash{$name} = $number;
}
foreach my $name (sort keys %hash){
      my $number = $hash{$name};
      print "$name\|$number";
}
  
  
close(TOSORT);
close(SORTED);
[download]

artist