my @classes = ref $foo;
my $method = "do_stuff";
while (@classes) {
    my $class = shift @classes;
    no strict 'refs';
    if (defined &{"${class}::${method}"}) {
        say $class;
        exit;
    }
    unshift @classes, @{"${class}::ISA"};
}
say "Not found";