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