Name1
Name2
Name2
Name3
Name3
Name3
Name3
Name4
Name4 

##</code><code>##

Name1
Name2
Name3
Name4

##</code><code>##

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