if (grep /\S/, @array) {
    print "OK\n";
}