Select Code to Download

use strict;
use warnings;
...
use Data::Dumper;
print Dumper \%foo;

print ${ $foo{CREATE} }, $/;

$foo{CREATE} = $foo{GENERATE};
$foo{DELIV} = $foo{DELIVER};