Select Code to Download

use match::simple qw(match);

if (match $a => [qw{ ABA SCO ACC PHC GHF }]) {
   ...;
}