print encode("UTF-8", "$row[0]\t$row[1]\n");

##</code><code>##

binmode(STDOUT, ':encoding(UTF-8)');
print "$row[0]\t$row[1]\n";