my %h;
@a=map { $h{$_}++ == 0 ? $_ : () } @a;