my ($index) = grep { $array[$_] eq 'c' } 0..$#array;