c:\@Work\Perl\monks>perl -wMstrict -le
"my @shapes = (
   [qw/circle square triangle polygon/],
   [qw/red green blue yellow fuschia/],
   [qw/a b c d e f g h i j k/] ,
   [qw/Movie TV Radio/] ,
   );
 ;;
 for my $arrayref (@shapes) {
   printf qq{'$arrayref->[$_]' } for 2 .. $#$arrayref;
   print '';
   }
"
'triangle' 'polygon'
'blue' 'yellow' 'fuschia'
'c' 'd' 'e' 'f' 'g' 'h' 'i' 'j' 'k'
'Radio'