Select Code to Download

use warnings;
use strict;
...
$data = {%$data, DOC => 'EMAIL'};

print Dumper($data);

use warnings;
use strict;
...
$data = {%$data, %$new};

print Dumper($data);