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

##</code><code>##

[2..$#$_]
to:
[1..4]