#!/usr/bin/perl
use warnings;  
use strict;

my @words = ("anyone", "cancel", "declArE", "perlmonks", "pal");
# Note the "pal" case is an extra case that I added

foreach my $word (@words) 
{
   if ($word =~ tr/aA//) # word contains an "A" or "a"
   {
       my $numE = $word =~ tr/eE//;
       print "$word $numE\n";  #number of e's in word with an "a"
   }
}

__END__
anyone 1
cancel 1
declArE 2
pal 0

##</code><code>##

my @words = ("anyone", "cancel", "declArE", "perlmonks", "pal");
print "$_: ",tr/eE//, "\n" for grep{tr/aA//;}@words;

##</code><code>##

words = ["anyone", "cancel", "declArE", "perlmonks", "pal"]
print(*((word,word.upper().count('E')) for word in words if 'A' in word.upper()))