my %qvals;
for ( qw/co_id maindirnum customer_id custcode/ ) {
     $qvals{$_} = {'print'=>'false','value'=>''value"};
}