Select Code to Download

use Data::Dumper;

...
$_ .= '_mod' for %h;

print Dumper \%h;

$h{a_mod} = delete $h{a};

my @h = 'a'..'f';
$_ .= '_mod' for @h;

%h = @h;
print Dumper \%h;