#! perl -sw
use strict;
use threads;
use threads::shared;
use Data::Dumper;

my %hash1 :shared;
my %hash2 :shared;

while(1) {
    async( \&sub1)->detach;
    async( \&sub2)->detach;

    sleep(2);
    lock %hash1; lock %hash2;
    print '$hash1'. Dumper(\%hash1) ."\n";
    print '$hash2'. Dumper(\%hash2) ."\n";
    print "_______________________________\n";
}

sub sub1
{
        my $now = scalar localtime;
        lock %hash1;
        $hash1{'time'} = $now;
}


sub sub2
{
        my $now = scalar localtime;
        lock %hash2;
        $hash2{'time'} = $now;
}