Others have answered the question, perhaps adequately for the OP's needs.
However, it bears mentioning that there is a more idiomatic way of testing for set membership that no one has yet mentioned.

    my @AllowedRanks = qw( Recruit General Captain Civilian Airman );

    my %allowed_ranks;
    @allowed_ranks{ @AllowedRanks } = (); # define a set

    if ( exists $allowed_ranks{ $MemberCall } ) { # test set membershi
+p
      Welcome();
    }
    else {
      NotWelcome();
    }
[download]

This uses hashes as sets. This is quick and easy, because hashes intrinsically support most set-related operations, such as exists.

jdporter
...porque es dificil estar guapo y blanco.