#!/usr/bin/perl
use strict;
use warnings;
$|=1;

use threads;
use threads::shared;

my %testOne :shared = (A => 1, B => 2, C => 3, D => 4, E => 5);
my %testTwo         = (A => 1, B => 2, C => 3, D => 4, E => 5);
my $inc :shared = 1;

do {
	threads->create(sub {
		while (1){
			my $i = join('', sort keys %testOne);
			my $j = join('', sort keys %testTwo);
			print "$inc-1\t$i\n" if ($i ne 'ABCDE');
			print "$inc-2\t\t$j\n" if ($j ne 'ABCDE');
		}
	});
} while (sleep 5 && $inc++ && $inc < 100);