if (UNIVERSAL::isa($ref, 'Foo::Bar')) {
   #...
} elsif (UNIVERSAL::isa($ref, 'Baz::Quux')) {
   #...
}