Help for this page
@list = qw( a b c d e f );
for $el (@list) { print "$el\n"; }
for $el1, $el2 (@list) { print "$el1 - $el2\n"; }