sub doppelte
{
  my $liste=shift;
  my $laenge=shift;
  my @array=@_;

  for my $val (@array[0..$laenge]) {
    return 1 if ($val eq $liste);
  }
  return 5;
}