##
use UNIVERSAL qw( isa ) ;
$yes = isa $h, "HASH";
$yes = isa "Foo", "Bar";
####
These subroutines should not be imported via use UNIVERSAL qw(...).
If you want simple local access to them you can do
*isa = \&UNIVERSAL::isa;
to import isa into your package.