open (OUTFILE ,'>>:encoding(UTF-8)', $ARGV[2]) || die "Error opening the output file\n";
...
...
...
print OUTFILE "$entry[$i]\n";
...
...
...