sub ist_element_in_array ($$) {
    my $elem  = shift;
    my $array = shift;

    my $elem_wort = (split / /, $elem)[0];

    for my $aelem (@$array) {
        my $array_wort = (split / /, $aelem)[0];
        if ($elem_wort eq $array_wort) {
            return $aelem;
        }
    }

    return undef;
}