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