sub MultiMethod { my $method = shift; my $args = shift; foreach my $object (@_) { $object->$method(@$args) if $object->can($method); } }