for my $t (1..2) {
    threads->create(sub {
        while (1) {
            my $s = join '', sort keys %testOne;
            print "$t\t$s\n" if $s ne 'ABCDE';
        }
    });
}

sleep;