Hi igoryonya,

map { push(@new_shapes, [@$_[2..$#$_]]) } @shapes;

I probably not use map like you are using.
Maybe something like so:

my @new_shapes = map { [ @{$_}[ 2 .. $#$_ ] ] } @shapes;

print join( " " => @{$_} ), $/ for @new_shapes;
[download]

triangle polygon
blue yellow fuschia
c d e f g h i j k
Radio
[download]