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