B::Deparse (Tip # 6 from Basic debugging checklist)

perl -MO=Deparse -e '6 < 8 ? $ans = "true" : $ans = "false";'

($ans = 'true') = 'false';
[download]

Try:

$ans = 6 < 8 ? "true" : "false";
[download]

Conditional Operator