nielwatson:

That shouldn't be a problem: Just put all arguments in your dispatch has in arrayrefs, and when they're unwrapped, they'll be simple positional parameters. Having one is just fine. It's probably the most general form, as you can also pass an array of arguments, too, so you get it all: single arguments, multiple arguments, arrays, hashes and named arguments (hashes!).

$ 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
[download]

Update: Added array example & text

...roboticus

When your only tool is a hammer, all problems look like your thumb.