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

##</code><code>##

my $index=0;
for(1..100){
$hash{$index}{'input1'} = $input1;
$hash{$index}{'input2'} = $input2;
#etc......
$index++;
}