my $var |= 1;
my $var2 ||= 1;