sub check {
    grep{/^\Q$_[0]\E$/}qw/Recruit General Captain Civilian Airman/ ? Welcome() : NotWelcome();
}