Select Code to Download

use strict;
my $output = <<EOD;
...
for my $rec (reverse sort {$a->[3] cmp $b->[3] || $a->[1] <=> $b->[1]}
+ @data) {
   print "Error ID: $rec->[0]   Time: $rec->[1]\n";
}