c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = qw(zero one two three);
 ;;
 for my $element (@array) {
   print qq{element '$element'};
   }
"
element 'zero'
element 'one'
element 'two'
element 'three'

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = (
   [ 1, 2, 3,    ],
   [ 'v' .. 'z'  ],
   [ qw(one two) ],
   );
 ;;
 for my $arrayref (@array) {
   for my $element (@$arrayref) {
     printf qq{'$element' };
     }
   print '';
   }
"
'1' '2' '3'
'v' 'w' 'x' 'y' 'z'
'one' 'two'