Re^3: Removal of duplicated element in array.

[2teez]

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

 use Data::Dumper;

  print Dumper \%seen;

__DATA__
[e-mail]
[e-mail]
[e-mail]
[e-mail]

*UPDATE:
If you care about the order of display then you can use this:
  print join "\n", sort{$a cmp $b} keys %seen;

*Note: That was based on the assumption, that the original ORDER of data was inconsequential.
Limbic~Region Thanks for pointing that out.

[Limbic~Region]

2teez,
If you care about the order of display then you can use this

The code in the OP looked like it was preserving the original order - what you have posted loses that ordering and sorting ASCIIbetically after the fact isn't going to re-instate it unless it coincidentally was sorted that way in the first place.

[2teez]

Limbic~Region
You are right. My post was on the assumption that, the OP wanted the output in 'ASCIIbetically', hence, the reason for my assertion. Thanks.