my %seen;
for my $k (@allkeys) {
    print "$k\n" if $seen{$k}++;
}