my @months = qw(
        Jan Feb Mar Apr May Jun
        Jul Aug Sep Oct Nov Dec );
    
    my %months;
    @months{ @months } = (
        31, 28, 31, 30, 31, 30, 
        31, 31, 30, 31, 30, 31 );

    ...

    foreach $key (@months) {