open IN,'<',$csvfile;
@data=<IN>;
close IN;
open OUT,'>',$newfile;
print OUT shift @data;
foreach my $line (@data) {$uniq{$line}=1;}
foreach my $line (keys %uniq) {print OUT $line;}
close OUT;