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

  $sperre=5;
  foreach $i (0..$laenge)
  {

    $t=@array[$i];
    if ($t eq $liste)
    {
      $sperre=1;
      print "sperre1 \n";
      return $sperre;
    }
  }
  return $sperre;
}

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

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

sub doppelte
{
  my $liste=shift;
  my $laenge=shift;
  return (grep{$_ eq $liste}(@_[0..$laenge]))?1:5;
}