$ perl -MO=Deparse,-p -e 'while (1) { warn 1, 2, 3, last if 1 }'
while (1) {
  warn(1, 2, 3, last);
}
-e syntax OK