#!/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 ++;
}