If you want to sort "numbers" instead of "strings" for the first level keys of the hash, then replace

 foreach my $k1 (sort keys %hash){
[download]

with

 foreach my $k1 (sort {$a <=> $b} keys %hash){
[download]