Help for this page
my @new_shapes = (); map { push(@new_shapes, [@$_[2..$#$_]]) } @shapes;
[2..$#$_] to: [1..4]