And of course you could also use grep to determine the index if you later would like to use it to remove elements with splice.

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