open my $p, "< ". shift @ARGV
   or die "could not open pattern file: $!";
my @pattern = map { chomp; qr/$_/ } <$p>;
for my $filename (@ARGV) {
    open my $f, "< $filename" or die "could not open $filename: $!";
    my @lines = <$f>;
    for my $pattern (@pattern) {
        printf "%s has %d matches for pattern %s\n",
        $filename,
        scalar(grep $pattern, @lines),
        $pattern;
    }
}