sub bad_uniq {
    my %h;
    @h{@in} = ();
    return keys %h;
}