Select Code to Download

@months = qw(January February March ... );

foreach my $month {@months} {
   print "$month has $days{$month} days\n";
}