#assuming that your file has only one email address per line
my %emails = ();
open FH, "<emails.dat" or die "error: $!";
$emails{$_}++ while (<FH>);
close FH;

open FH, ">new_emails.dat" or die "error: $!";
print FH $_ while ($_ = each(%emails));
close FH;