>perl -wle"@$ref = my @x; print $ref" ARRAY(0x225228)