$sensitive_code = eval 'sub {
    my ($foo,$bar,$baz) = @_;
    $sensitive = "D-$foo-$bar-$baz";
    # do stuff with $sensitive
    return;
}';
$sensitive_code->("charanga","Boom","BANG");