Hashes are good at determining uniqueness. Here's an example:

sub uniq {
    my %hash;
    @hash{ split //, $_[0] } = ();
    return length $_[0] == keys %hash
}
[download]