#!/usr/bin/perl -w
  
use strict;

my @words = ("anyone", "cancel", "declare", "perlmonks");
my $count = 0;

foreach (@words) {

        if ($words[$count] =~ m/a/i) {
                 my $number = () = $words[$count] =~ /e/gi;
                 print "$words[$count]: $number\n";
        }

        $count ++;
}


##</code><code>##

anyone: 1
cancel: 1
declare: 2

##</code><code>##

perl -e 'for('anyone','cancel','declare','perlmonks'){$i=()=/e/g;print"$_: $i\n"if(/a/);}'