if ($foo = 1) を、
 なんでperlは
  エラー吐かない