my %validchars;
if ( $arg eq '-a' ) {
  %validchars = map { $_ => uc $_ } ( \x00 .. \xff );
} elsif ( $arg eq '-c' ) {
  %validchars = map { $_ => $_ } ( 'A' .. 'Z', 'a'..'z' );
};