...
print OUT "\tEAN\thello $phn $colr";  ## remove the newline \n
...