Select Code to Download

sub AUTOLOAD {
    my $self = shift;
...
        $self->$AUTOLOAD(@_);
    }
}

my $obj_multi = MulitiObject->new( $obj_1, $obj_2 );
$obj_multi->foo($x, $y);          # $obj_1->foo($x, $y);  $obj_2->foo(
+$x, $y);

sub new {
    my $class = shift;
    return bless [ @_ ], $class;
}