@AllowedRanks = ("Recruit","General","Captian","Civilian","Airman");

$found=0;

my $MemberCall = "me";

foreach $i (@AllowedRanks){
 if($MemberCall eq $i){
  $found=1;
}
}

if($found==1){
&Welcome;
}else{
&NotWelcome;
}

sub Welcome {
print "welcome\n";
}

sub NotWelcome {
print "Notwelcome\n";
}