sub isa_hash {
  no warnings 'void';
  my $hsh = shift();
  return if eval { @$hsh; 1 };
  return 1 if eval { %$hsh; 1 };
  return;
}

sub isa_array {
  no warnings 'void';
  my $arr = shift();
  return 1 if eval { @$arr; 1 };
  return;
}