foreach my $k1 (sort keys %hash){

##</code><code>##

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