Select Code to Download

my @SupportedPTs = ('Accounting','Dnd','Essay','FITB','Hotspot','Match
+ing','MC','Narrative','SingleAnswer','SelfGradingGeneric','Sketch','S
+tatic','TF');
my @ProblemTypes = ('Accounting','Dnd','test');
...
    print "$_ is not supported\n";
  }
}

Accounting is not supported
Dnd is not supported
...
Sketch  is supported
Static  is supported
TF  is supported

for my $sPT (@SupportedPTs){
  if (! grep{/$sPT/} @ProblemTypes){
...
     print "$sPT is not supported\n";
   }
 }