while ($line = <FILENAME>) {
chomp $line;
{
$uniquelines{$line}=1;
}
foreach $k (keys %uniquelines) {
print NEWFILE "$k\n";
}