foreach my $key(sort keys %hash){......}
#or numeric sort
foreach my $key(  sort {$a<=>$b} keys %hash){......}