...
   } elsif( /PARTIAL|\[P\]/i ) {
...

##</code><code>##

...
my %biasedConfLookup = (
   COMPLETE => 100,
   q{[C]}   => 100,
   PARTIAL  =>  50,
   q{[P]}   =>  50,
   NONE     =>   0,
   q{[I]}   =>   0,
   );
...
        $biasedConf =
           exists $biasedConfLookup{ uc $_ }
           ? $biasedConfLookup{ uc $_ }
           : 0;
...

##</code><code>##

open my $foundVulnsFH, q{<}, q{found_vulns_test}
   or die qq{open: < found_vulns_test: $!\n};