It's not a scoping issue:

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
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print