my %TEST_HASH = (TEST_KEY => 'TEST_VALUE');
my $cmd = '/bin/touch $TEST_HASH{"TEST_KEY"}';

$cmd =~ s/\\/\\\\/g;
$cmd =~ s/"/\\"/g;
$cmd = eval qq{"$cmd"} or die $@;

print $cmd