use warnings;
use strict;

my $A = 0;
print $A +1 == 0 ? "A\n" : "B\n";

##</code><code>##

Can't use string ("0") as a symbol ref while "strict refs" in use at <...> line 5.