Perlでの一行if文

C言語での一行if文は、以下の感じです。

if (a == 0) a = 2;

Perlでも一行if文は、ありますが、実行文が前にきて、C言語と雰囲気が違うのです。

$a = 2 if ($a == 0);