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