Help for this page
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"; }
www.com | www.net | www.org
No recent polls found