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