@list = grep { ! $_{$_} } @list;