Select Code to Download

foreach my $k1 ( sort { $a <=> $b } keys %hash ) {
    foreach my $k2 ( sort {$a <=> $b } keys %{$hash{$k1}} ) {
        #do what you want, e.g. print $hash{$k1}{$k2}{first}
    }
}