sub ARRAY (;*) {	
    my $p = $_[0];
    return @_ ? (ref $p && (1+index($p, '::ARRAY')? 1:0) : 'ARRAY'
  }