my $count = grep { $_ eq $e } @a;