$ perl -MO=Deparse,-p
$a, $b = 666
($a, ($b = 666));
- syntax OK
$