if (-z "".$arg."") {
    print READ "is empty!\n";

##</code><code>##

while ( my @doc_read = <READ> ) {