my $lock : shared;
{
lock($lock)
...do something that only 1 thread at a time should do...
}