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