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

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