Help for this page
@a = ( 1, 2, 3, 4); for(@a) { print; ... print @a[$i]; } print "\n";
1234 1234 1234 1234