Your $one and $two are being compared as strings instead of numbers. This is because they both contain a '|' infront of the numbers.

my @sorted=sort{
   my $one=substr($a,rindex($a,'|'));
   my $two=substr($b,rindex($b,'|'));
   $one =~ s/\D//g;
   $two =~ s/\D//g;
   ($one <=> $two) 
} @database;
[download]

This sorts it properly. I'm sure there's a better way to get at that last number, but I'm just stripping out anything that's not a digit.

HTH