sub is_valid_list {
    my $text = shift;

##</code><code>##

    my @langs = grep {defined} split /[\s,]+/, $text;


##</code><code>##

    ! grep { ! exists $validLanguages{$_} } @langs;
}