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;