#!/usr/bin/perl -w
use strict;
my %H;
open(R,"database");
 map {/\|(\d+)/; $H{$1}=$_ if $1}<R>;
close(R);
 foreach (sort {$a<=>$b} keys %H){print $H{$_}}