$ perl -MO=Deparse
use constant DOFOO => 0;
my $DOBAR = 0;
print "foo" if  DOFOO;
print "bar" if $DOBAR;
__END__
use constant ('DOFOO', 0);
my $DOBAR = 0;
'???';
print 'bar' if $DOBAR;