Select Code to Download

use strict;
use warnings;
...

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