标量 ,数组,hash 引用

[root@master Webqq]# cat t23.pl 
$var='aaa';
$refvar=$var;
print "$$refvar
";


@arr=qw/1 3 5/;
$refarr=@arr;

print @$refarr;
print "
";


%hash=(a=>1,b=>2,c=>3);
$refhash=\%hash;
print %$refhash;
print "
";
[root@master Webqq]# perl t23.pl 
aaa
135
c3a1b2