$obj_multi->new( $obj_1, $obj_2 );
$obj_multi->foo();                  # $obj_1->foo();  $obj_2->foo();

##</code><code>##

package MultiMethod;
use strict;
use warnings;
use vars '$AUTOLOAD';

sub new {
    my $class = shift;
    my $self  = \@_;
    return bless $self , $class;
}

sub DESTROY { return; }

sub AUTOLOAD {
    my $self = shift;
    if ( $AUTOLOAD =~ /::([^:]+)$/ ) {
        $_->$1(@_) for @$self;
    }
}
42;

##</code><code>##

MultiMethod( 'methodname', [], $file, $file2 );

sub MultiMethod {
    my $method = shift;
    my $args   = shift;
    $_->$method(@$args) for @_;
}