use strict;
use Carp 'cluck';

my $job_type = 65;
my %bj = (64,'D', 128,'A', 256,'H');
foreach my $flag (keys %bj) {
    if ($flag & $job_type) {
        my $bu = $bj{$flag};
        cluck("business_unit: $bu");
    }
}