use 5.010;
use strict;
use warnings;

my @names = qw/Markus Fritz Otto/;

my @candidates = <>;
chomp @candidates;

foreach my $name (@names) {
  my $count = scalar grep /\Q$name\E/, @candidates;
  say "'$name' encountered $count times";
}