删除数组中相同元素的几种方法

my @a=(1,2,1,2,1,2,1,3);
my %hash;
my @b = grep { ++$hash{$_} < 2 } @a;
print @b;

my %hash;
my @a=(1,2,2,3);
@hash{@a}=();
my @b=keys %hash;
print @b;

my @a=(1, 2, 3, 2);
foreach (0 .. $#a)
{
  my $elem = shift(@a);
  push(@a, $elem) if (not $elem ~~ @a);
}

print @a;