Select Code to Download

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

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