So just use

use strict;
my ($package,$sub,@params) = ("MyPackage","hello_world",'Hello','World
+');
$package->$sub(@params);

package MyPackage;
use strict;
sub hello_world {
    my ($self,@args)=@_;
    print "In My Package: $_\n" for @args;
};
[download]

Here's the code that works:



my %h;
while(my $r = $st->fetchrow_hashref())
{
    my $mod = $r->{'Module'};
    my $sub = $r->{'Subroutine'};
    my $par = $r->{'Params'};
    
    $h{$r->{'VarName'}} = sub { $mod->$sub(eval "$par"); };
}
[download]

You've got my +! Thanks again.

This is basically what DBIx::VersionedSubs::Hash does, except it also allows you to dynamically load newer versions from the database.