my %seen = map { $_ => 1 } @array;
my @distinct_elems = keys %seen;