...
for (0..16) {
    my $value = vec($mask,$_,8);
    print "$value\n";
}

##</code><code>##

255
255
255
255
255
255
255
255
0
0
0
0
0
0
0
0
0