- for ( 1 .. $num_refs ) {
+ for ( $num_refs .. 1 ) {

##</code><code>##

perl -e "$n=5; for($n..1) { print }"

##</code><code>##

perl -e "$n=5; for(1..$n) { print }"