# enable multi copies options if necessary if ($enable_multiple_copies){ map{ $_->configure(-state => 'normal') }($skip_orig_lbl,$skip_orig_chk,$multi_pattern_lbl,$multi_pattern_ent ); } # or disable them and clean values else{ map{ $_->configure(-state => 'disabled') }($skip_orig_lbl,$skip_orig_chk,$multi_pattern_lbl,$multi_pattern_ent ); $skip_orig = 0; $multi_pattern = ''; }