for (
   [qw(a a b c)],
   [qw(d e e f)],
) {
   print(uinq(@$_), "\n");    # Can't coerce array into hash
}

##</code><code>##

for ('a a b c', 'd e e f') {
   print(uinq(split), "\n");  # Can't use string ("a a b c") as a HASH ref while "strict refs" in use
}

##</code><code>##

do { local %_; @_{@_}=(); keys %_ }

##</code><code>##

sub uinq { local %_; @_{@_}=(); keys %_ }