perl -e '$p=[];print $p' ARRAY(0x928c880)