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"]]