Select Code to Download

@numbers = ();
for (@list) {
    push @numbers, hex $_;
}

my $value = 14;
#Examine 3rd bit from the right
print ($value >> 3) % 2;