use threads; use Data::Dumper; my $hash1; my $hash2; while(1) { async( \&sub1)->detach; async( \&sub2)->detach; print '$hash1'. Dumper($hash1) ."\n"; print '$hash2'. Dumper($hash2) ."\n"; print "_______________________________\n"; sleep(10); } sub sub1 { my $now = `date "+%Y-%m-%d %H:%M:%S"`; chomp($now); $hash1->{'time'} = $now; } sub sub2 { my $now = `date "+%Y-%m-%d %H:%M:%S"`; chomp($now); $hash2->{'time'} = $now; }