my $ptr=[];
say ARRAY if ARRAY $ptr;