#!/usr/bin/perl
use Modern::Perl;
use List::Util qw(first max maxstr min minstr reduce shuffle sum);

my @pantry = ("Panc", "Pancake", "Panmix");
my $total = 0;

$total++ if any   { /^\QPanc\E$/ } @pantry;
#$total++ if grep { /^\Qpanc\E$/ } @pantry;
print "$total";