Is this what you want? (Note the curly braces.)

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