use strict;
use warnings;

print "Content-type: text/html\n\n";

my @records;
while (<DATA>) {
    chomp;
    push(@records, [ split(/\|/) ]);
}

print "$_->[0]|$_->[1]|$_->[2]<BR>\n"
   foreach sort { $b->[0] <=> $a->[0] } @records;