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

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


##</code><code>##

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