my %seen = map {$_=>1} <DATA>;

 use Data::Dumper;

  print Dumper \%seen;

__DATA__
dddd@fgg.com
cccc@fgg.com
eeee@fgg.com
dddd@fgg.com