{ no strict 'refs'; my @chrs = ( 'a'..'h', 'k', 'm', 'n', 'p'..'z' ); push @chrs, map uc, @chrs; push @chrs, 2..9; $charlist{ $_ } = \@{"char_$_"} foreach @chrs; }