...
{ lock $variable; $x = something }
...