@list = qw( a b c d e f );

##</code><code>##

for $el (@list) {
   print "$el\n";
}

##</code><code>##

for $el1, $el2 (@list) {
   print "$el1 - $el2\n";
}