#!/usr/local/bin/perl -w

use strict;

{
   my %hash = ('a' => {-func => \&sub_one,    -parm => 'subone'},
               'b' => {-func => \&sub_two,    -parm => 'two,two_a,two_b'},
               'c' => {-func => \&sub_three,  -parm => ''},
              );

   &{$hash {'a'}->{-func}} (split ',', $hash {'a'}->{-parm});
   &{$hash {'b'}->{-func}} (split ',', $hash {'b'}->{-parm});
   &{$hash {'c'}->{-func}} (split ',', $hash {'c'}->{-parm});
}

sub sub_one
{
   print "sub_one got ", scalar @_, " parameters\n";

   print "sub_one parameters: $_\n" foreach (@_);
}

sub sub_two
{
   print "sub_two got ", scalar @_, " parameters\n";

   print "sub_two parameters: $_\n" foreach (@_);
}

sub sub_three
{
   print "sub_three got ", scalar @_, " parameters\n";

   print "sub_three parameters: $_\n" foreach (@_);
}