for(1..@arr){ print $arr[--$_], $_, $/ } [download]
In reply to Re^3: Foreach Loops by sh1tn in thread Foreach Loops by hubb0r