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