Und nein, Perl kennt kein "true".

Aus perlsyn:

Quote

      Truth and Falsehood

      The number 0, the strings '0' and '', the empty list "()", and "undef" are all false in a boolean context. All other values are true.  Negation of a true
      value by "!" or "not" returns a special false value.  When evaluated as a string it is treated as '', but as a number, it is treated as 0.

Und ein "$o/2" ist für alle $o außer Null wahr. Vielleicht meintest du "$o % 2"? Aber der Code ist mir ohnehin nicht so ganz klar.

So oder so fände ich es (auch in C/C++/Java/...) sinnvoller, das Ergebnis einer (integer)arithmetischen Operation mit 0 oder 1 zu vergleichen, als mit einem Wahrheitswert.