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

...

        my $i = int(rand(4));
        my $letter = $range[$i];