my @array = qw( foo bar baz quux );
my @idx_of_eles_with_an_a = grep $array[ $_ ] =~ /a/, 0..$#array;