Select Code to Download

use strict;
use warnings;
...
  print "aref is a href\n";
  my %hash = %$aref;
}

if ( eval { my $foo = %$aref; 1 } ) {
  print "aref is a href\n";
  my %hash = %$aref;
}

Pseudo-hashes are deprecated

sub isa_hash {
  no warnings 'void';
...
  return 1 if eval { @$arr; 1 };
  return;
}

if ( eval { 1 + %$possible_href } ) {
    return 1;
}