use strict; use warnings; my @bitmask_value = ( 512, 514, 210, 328, 2, 1, 65535 ); foreach my $bitmask_value ( @bitmask_value ) { print 'bit 2 is ', $bitmask_value & 2 ? 'set' : 'not set', " for value [$bitmask]\n"; }