#!/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;