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