#
#  $word is 0, the default setting for bits being 0FF
#
$word = 0;
$word |= 0x01 if ($obj->{organization} !~ /^\s*$/);
...
$word |= 0x40 if ($obj->{report} !~ /^\s*$/);

print "All fields supplied" if ($word == 0x00);
print "Missing Organization" if ($word & 0x01 == 0);