my %qvals = ()
my %hcns = (
   print => 'false',
   value=>''
);
$qvals{$_} = \%hcns foreach (qw/co_id maindirnum customer_id custcode newdirnum sim dea variable rateplan/);

use Data::Dumper ();
print Data::Dumper(\%qvals);