use strict;

@ARGV = ('security.txt') unless @ARGV;
my %exe = (
  'C:\Program Files\Internet Explorer\IEXPLORE.EXE' => 'Catalog',
  'D:\crime\Reader\AcroRd32.exe' => 'Crime',
);

my %count;
while (<>) {
   for my $filename (keys %exe) {
     %count{ $exe{filename} }++
       if index($_, $filename) > -1;
   };
}

print "Name: $_ Count: $count{$_}" for keys %count;