#!/usr/bin/env perl

use strict;
use Data::Dumper;

my %lHash;
$lHash{'a'} = 1;
$lHash{'b'} = 2;
my $lHashRef = \%lHash;
my $lValue1 = $lHashRef->{'a'};
print $lValue1."\n";
print Dumper($lHashRef);
print ref($lHashRef) . "\n";
my $lValue = ${%{$lHashRef}}{'a'};
print $lValue."\n";
exit 0;


##</code><code>##

$ perl deref_test.pl
1
$VAR1 = {
          'a' => 1,
          'b' => 2
        };
HASH
Can't use string ("2/8") as a HASH ref while "strict refs" in use at deref_test.pl line 14.


##</code><code>##

$ perl perl_deref.pl 1
1
$VAR1 = {
          'a' => 1,
          'b' => 2
        };
HASH
1