some_sub() for grep -d, @array;