my @POvars_common = qw[ ppo userid email ]; my %POvars = ( 'GRP' => [@POvars_common, 'gwpo', 'gwdomain'], 'JAG' => [@POvars_common, 'jagexcept'], 'CIS' => [@POvars_common], 'MST' => [@POvars_common], 'GCG' => [@POvars_common] );