Select Code to Download

#!/usr/bin/perl
my %h;
my $val = $h{x}{y};
use Data::Dumper;
print Dumper \%h;

$VAR1 = {
          'x' => {}
        };

#!/usr/bin/perl
my %h;
%{$h{x}};
use Data::Dumper;
print Dumper \%h;

$VAR1 = {};

#!/usr/bin/perl -w 
use strict;
...
keys %{$h{x}};
use Data::Dumper;
print Dumper \%h;

$VAR1 = {
          'x' => {}
        };