chomp(my $month = <STDIN> ); $month--;