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

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