sub AUTOLOAD {
    my $self = shift;
    if (my($method) = $AUTOLOAD =~ /::([^:]+)$/ ) {
        no strict 'refs';
        *$AUTOLOAD = sub {
            my $self = shift;
            $_->$method(@_) for @$self;
        };
        $self->$AUTOLOAD(@_);
    }
}

##</code><code>##

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

##</code><code>##

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