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

##</code><code>##

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