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