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