#!/usr/bin/perl

use strict;
use warnings;

use Text::Grap qw(grap);

my @questions = qw(who what when where why);
print grap(sub {/he/}, @questions) ? 'yes' : 'no';