My mistake, I did not read the code carefully and ignored the bitshift logic ;-). I use OR logic for my masks

my %genres = (
    ROCK => 0,
    POP  => 1,
    JAZZ => 2,
}

my $bits = 0;

$bits |= $genres{$_} for @spec;
[download]