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

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