use Data::Dumper;

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

modifyHash( \(%x, %y) );

sub modifyHash
{
  my ($x, $y) = @_;
  $x->{a} = "circle";
  $x->{b} = "square";
}

print Dumper ( \(%x, %y) );

##</code><code>##

use Data::Dumper;

my %coords = (
  x => { a => "Red" },
  y => { b => "Green" }
);

modifyHash(\%coords);

sub modifyHash
{
  my ($c,) = @_;
  $c->{x}{a} = "circle";
  $c->{y}{b} = "square";
}

print Dumper \%coords;