use Data::Dumper;
say Dumper \@rot_mat;