my @sorted = sort{ 
my $one=substr($a,rindex($a,'|'));
my $two=substr($b,rindex($b,'|'));
chomp($one,$two);
($one <=> $two) } @database;