for(0..@arr){ $arr[$_] }

##</code><code>##

for(1..@arr){ print $arr[--$_], $_,  $/ } # diff ?