my @result = grep { !$seen{$_}++ } @a;