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[ 2, 0, 2 ]) {
   printf qq{'$_' } for @{$arrayref}[ 2 .. $#$arrayref ];
   print '';
   }
"
'c' 'd' 'e' 'f' 'g' 'h' 'i' 'j' 'k'
'triangle' 'polygon'
'c' 'd' 'e' 'f' 'g' 'h' 'i' 'j' 'k'

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -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/] ,
   );
 ;;
 my @new_ra =
   map { [ @{$_}[ 2 .. $#$_ ] ] }
   @shapes[ 2, 0, 2 ]
   ;
 dd \@new_ra;
"
[["c" .. "k"], ["triangle", "polygon"], ["c" .. "k"]]