if (grep /\S/, @array[3,4]) { ... }