if(@array[3..4] =~ /\S/) {
    do stuff;
}

##</code><code>##

if($array[4] =~ /\S/) {
    do stuff;
}

##</code><code>##

if("@array[3,4]" =~ /\S/) {
or
if ("@array[3,4]" =~ tr/ \t\n//c) {