Select Code to Download

sort { $hoa{$a}->[0] cmp $hoa{$b}->[0] } keys %hoa;

my @sorted_keys = sort { $hoa{$a}->[0] cmp $hoa{$b}->[0] } keys %hoa;
foreach my $row_key ( @sorted_keys ) {
...
    }
    print "</tr>\n";
}