foreach my $classname qw(Foo Bar Oops) {
    $classname->method1;
}

## output ##

Can't locate object method "method1" via package "Oops" at C:\Projects\GPerl\Test\2.pl line 16.
Called from class: Foo
Called from class: Bar