.

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;
}