my $sharedVar : shared;
....
{ lock( $sharedVar ); #do stuff with $sharedVar  }