Perl Vexing Parse

A case of Syntactic Ambiguity.

if is_odd(x) then
if x === 1 then
print "foo":
else
print "bar";