in reply to How to find and remove duplicate elements from an array?

{
  my %seen;
  @A = grep { !$seen{$_}++ } @A;
}

[download]

Originally posted as a Categorized Answer.

In Section Seekers of Perl Wisdom