Select Code to Download

@thismonth = qw( $jandays $febdays $mardays $aprdays ...

# you obviously meant:
@thismonth = ($jandays,$febdays,$mardays,$aprdays, ...

my %days_in_month = (
   jan => 31,
...
   may => 31,
   etc ...
);