my %hash = ( 1 .. 4);
my $foo = \%hash;
my $bar = \%hash;
my $baz = $foo ;
foobarbaz(\%hash);
sub foobarbaz {
   my $ref = shift;
}