$ perl -le " $f = ( 1,2,3 ); print $f"
3

$ perl -MO=Deparse -le " $f = ( 1,2,3 ) ; print $f"
BEGIN { $/ = "\n"; $\ = "\n"; }
$f = ('???', '???', 3);
print $f;
-e syntax OK