use Data::Dumper; print Dumper \@shapes;