my %seen;
my @uniq = grep { !$seen{$_}++ } @allkeys;