Two remarks:

• you don't need the /e modifier as the replacement is interpreted (with // at least);
• if you need a sum of numbers, you can use the sum from List::Util.

Use List::Util qw( sum );

$count = sum map s/$foo/$bar/g, @array;
[download]

(But use sum0 if @array can be empty and undef won't do.)