#!/usr/bin/perl
use 5.014;

my $count;
my @arr = qw/helper abc help def helpless helpful whelp help/;
$count = grep {/^help$/}@arr and print "This is a help message. ";    # Note1
say "\$count: $count";

# This is a help message. $count: 2