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

##</code><code>##

my @ProblemTypes = qw(Accounting Dnd test);