uat-prx02:/root# cat a1.pl
@array=qw/1 2 3 /;
print @array;
print "
";
$array=[1,2,3];
print $array;
print "
";
print "222222222222
";
print @$array;
print "
";
uat-prx02:/root# perl a1.pl
123
ARRAY(0x2146188)
222222222222
123
uat-prx02:/root# cat a1.pl
@array=qw/1 2 3 /;
print @array;
print "
";
$array=[1,2,3];
print $array;
print "
";
print "222222222222
";
print @$array;
print "
";
uat-prx02:/root# perl a1.pl
123
ARRAY(0x2146188)
222222222222
123