my @arr = ("what", "the", "the", {"heck" => "I"},
           {"heck" => "I"}, "don't", "get", "this");

my %uniq; @uniq{@arr} = (1) x @arr; @arr = keys %uniq;
print join "\n", @arr;