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

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

    if ( exists $allowed_ranks{ $MemberCall } ) { # test set membership
      Welcome();
    }
    else {
      NotWelcome();
    }