my %name_changes = (
   mm   => 'month',
   yyyy => 'year',
);
for (keys %name_change){
    $h->{$name_change{$_}} = $h->{$_};
    delete $h->{$_};
}