...
    if (@available_voices) {
        if (@available_voices > 1) {
            @available_voices = grep $all_voices{$_}, @available_voices;
        }
...