my %hash;
@hash{'A'..'Z'} = ();

...

if (exists $hash{$whatever}) { ... }