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