Select Code to Download

use strict;
use warnings;
...
       };
    &$rcDoIt;
}

$rhRes = {
           'tod' => '14',
...
           'dow' => '0',
           'area_code' => '617'
         };

use strict;
use warnings;
...
   };

print Data::Dumper->Dumpxs( [ $rhRes ], [ qw{ rhRes } ] );