Or without a sub:

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

Localize %_ if needed.