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;
};