my %x = ("a"  => "red");
my %y = ("b"  => "green");
my %z = ("c"  => "black");

(%x, %y, %z) = %{ &modfifyHash(\%x, \%y, \%z) };

sub modfifyHash {
    my (%x, %y, %z) = %{ @_ };
    $x{ "a" } = "circle";
    $y{ "b" } = "square";
    $z{ "c" } = "rectangle";
    return(\%x, \%y, \%z)
}