Select Code to Download

my $num = grep ($seen{$_}, @SupportedPTs);
print "num=$num\n";

my @ProblemTypes = qw(Accounting Dnd test);