#!/usr/bin/perl
use strict;
use warnings;


for my $value (1, 2, 3, 4, 5, 6, 7, 8) {
    print "$value: ";
    if ($value & 0x2) {
        print "yes\n";
    } else {
        print "no\n";
    }
}