10|name
8|name
12|name

##</code><code>##

%name;
{
while (<>) {

  ($number, $filename) = split (/\|/, $_);
print "$number\n";
   $name{$number}=$filename;
           }
}
           foreach $number (sort (keys(%name))) {
           print "\t$number\t\t$name{$number}\n";
                                             }