$ cat sploot.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use Test::More;

my %sub = (
    t01=>{ name=>\&mine, args=>[qw/one first two second/] },
    t02=>{ name=>\&yours, args=>[ 'foo' ] },
    t03=>{ name=>\&ours,  args=>[qw/The quick red fox/] },
);

for my $T (keys %sub) {
    $sub{$T}->{name}->(@{$sub{$T}{args}});
}
done_testing;

sub mine {
    # named arguments example
    my %args = @_;

    ok( $args{one} eq 'first', 'arg one' );
    ok( $args{two} eq 'second', 'arg two' );
}

sub yours {
    # single argument example
    my $message = shift;

    ok( $message eq 'foo', 'A single argument' );
}

sub ours {
    # array example
    my @args = @_;

    ok( "The quick red fox" eq join(" ", @args), 'Argument array' );
}

Roboticus@Waubli ~
$ perl sploot.pl
ok 1 - Argument array
ok 2 - A single argument
ok 3 - arg one
ok 4 - arg two
1..4