in reply to what would you like to see in perl5.12?
Hence
... lock( $var )++; .. [download]
... { lock( $var ); $var++; } ... [download]