for (1 .. 25) {
  my $value = param("q$_");
  print "Value #$_ = $value\n";
}
[download]

This could work or you could drop the "q" from the hash key and then just do a numeric sort on the hash and add it back in at the end.


"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

sulfericacid

Or you could sort it thusly:

foreach $key( map { $_->[1] }
              sort { $a->[0] <=> $b->[0] }
              map { m/q(\d+)/; [ $1, $_ ] }
              keys %hash ){
  print "$key : $hash{$key}\n";
}
[download]

(untested)



--chargrill

---

$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
+plit//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
+C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
+$$C[$%++]}
[download]