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

my $bits = 0;

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