Select Code to Download

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

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
}

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

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