my $code;
my $sub_ref = 'sample';
#my $sub_ref = "Lua::$module::$funcname";
{
    no strict 'refs';
    $code = \&{"sample"};
}
my @args = (1,2,3);
print $code->(@args);

sub sample {
    return shift @_;
}