</pre><pre name="code" class="sql">oaapp01:/root/test# cat a1.pl 
use Data::Dumper;
%hash=(a=>1,b=>2,c=>3);  
$refhash=\%hash;  
print %$refhash;  
print "\n"; 
print "dump 数据结构\n";
print Dumper(%hash);
oaapp01:/root/test# perl a1.pl 
c3a1b2
dump 数据结构
$VAR1 = 'c';
$VAR2 = 3;
$VAR3 = 'a';
$VAR4 = 1;
$VAR5 = 'b';
$VAR6 = 2;