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