while (<FILE>) {
  chomp;
  foreach $key (keys %exe) {
    $count{$_}++ if ($_ eq $key); 
  }
}

foreach $key (keys %exe) {
  print "Name:$key\t Count:$count{$key}\n";
}