Help for this page
Select Code to Download
Select
or
download this
for(0..@arr){ $arr[$_] }
Select
or
download this
for(1..@arr){ print $arr[--$_], $_, $/ } # diff ?