my @not_coin = map { $_ eq 'coin' ? undef : $_ } @array;