简单的hash解引用例子

uat-prx02:/root# cat a2.pl 
$arr={1=>2, 3=>4};
print %$arr;
print "
";
print $$arr{3};
print "
";
print $arr->{3};
print "
";
uat-prx02:/root# perl a2.pl 
1234
4
4