if (grep($seen{$_}, @SupportedPTs) )

##</code><code>##

if (grep(! $seen{$_}, @SupportedPTs) )

##</code><code>##

if (! grep(! $seen{$_}, @SupportedPTs) )