my @range = ("Q","V","X","Y","Z",);

...

        my $letter = $range[ rand @range ];