my @coin_idx = grep { $array[ $_ ] eq 'coin' } 0..$#array;