$Job->{Sub} = sub { join "_", @_ };
$Job->{Args} = [1,2,3];
print &{$Job->{'Sub'}}(@{$Job->{'Args'}}); # print $Job->{'Sub'}; ergibt CODE(0x1234567)