sub test {
my $ref = shift;
$ref->{'fuga'} = 'World';
}

%hash = (
'hoge' => 'Hello',
'fuga' => 'Hello'
);

&test(\%hash);

print $hash{'hoge'}, $hash{'fuga'}, "\n\n";