Help for this page
my @new_shapes = map { [ @{$_}[ 2 .. $#$_ ] ] } @shapes; print join( " " => @{$_} ), $/ for @new_shapes;
triangle polygon blue yellow fuschia c d e f g h i j k Radio