my @array = qw(bb aa dd cc aa aa cc aa aa cc);
    print "$_ $_{$_}\n" for grep !$_{$_}++, @array;