% perl -wce '( 1, 0, undef, , "di foo", "ds bar", "ig baz" )'
-e syntax OK