my $method = "method_name";
for my $class (qw(Class1 Class2 Class3)) {
  my $object = $class->$method(shift (@arguments));
}