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