Select Code to Download

     my $foo = {};

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

     $foo->{y}->{z} = "Zoinks";

     print "$foo->{y}{z}"; # Perl5 Auto-dereference