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