for (my $id=0;$id<@{$Genres};$id++) {
    $Genres{lc($Genres->[$id])}=$id;
}