my @sorted = map $_->[1],
             sort { $a->[0] <=> $b->[0] }
             map [ substr($_,rindex($_,'|')+1), $_ ],
             @database;