use strict;
use warnings;
use Data::Dumper;

my %hash;

%hash->{foo} = "bar";
print Dumper(\%hash);