use Data::Dumper;

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

print Dumper \%h;