Given that initializing the hash just requires you list a bunch of keys and values, this can be simplified:

@{$h}{qw/ month year day first_name /}= delete  # New keys
@{$h}{qw/ mm    yyyy dd  name /};               # Old keys
[download]

Yeah, I added some extra braces.