Well if you're defining "not an empty string" to mean "a string containing something other than whitespace", then this is the simplest way:

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

You can modify the regular expression to match whatever you want to match.