my $x = { map { $_ + 1 => (qw/Jan Feb Mar Apr May/)[$_] } 0..4 }; print map { "$_ => $x->{$_}\n" } keys %$x;