my @not_coin = grep { $_ ne 'coin' } @array;