...
print OUT "\tEAN\thello $phn $colr \n";
...