Select Code to Download

$nestedhash = {
    'REJECTED'  => 'REJECTED',
...
    },
    'DIR' => ['DIR1', 'DIR2']
};

$VAR1 = {
          'incoming' => {
...
                       'smtpserver' => 'SMTPSERVER'
                     }
        };

sub force_uc_hash {
    my $hashref = shift;
...
}