$ 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/] },
);

$sub{t01}{name}(@{$sub{t01}{args}});

sub mine {
    my %args = @_;

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

$ perl sploot.pl
ok 1 - arg one
ok 2 - arg two
1..2