my $foo = {};

     $foo{x} = "Bar";     # Auto-dereference
     $foo->{x} = "Bar";   # Manual dereference