my %seen;
@$arrayref = grep { not $seen{$_}++ } @$arrayref;