sub in_array
 {
     my ($arr,$search_for) = @_;
     my %items = map {$_ => 1} @$arr; # Zeile 1594
     return (exists($items{$search_for}))?1:0;
 }