my $a = 6;
my $porter = ($a & 1) != 0;
my $ported = ($a & 2) != 0;
my $uuu = ($a & 1);
   $porterb = ($uuu) != 0;
   $ppp=(defined($porter)? 'defined':'undefined' );
   print STDERR "a=($a)   uuu=($uuu)  ported=($ported)
      porterb=($porterb)  porter=($porter)    porter is $ppp  \n"    ;