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

##</code><code>##

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