Here is an example:

#!/usr/bin/perl

use strict;
use warnings;

package Module::MyModule;

sub pass {
    my ($function, @args) = @_;
    my $f = \&{"Module::MyModule::" . $function};
    return $f->(@args);
}

sub test {
    my (@args) = @_;
    return join ", ", @args;
}

package main;

print Module::MyModule::pass("test", qw(1 2 3 4));
[download]

Update: modified to support strict.