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