$anzahl=0;

foreach(@zeilen)
{
if($_ =~ m/$beginne/)
{
$anzahl=$anzahl+1;
}

}

if($anzahl>1)
{
print "beginne pid ist $anzahl mal vorhanden \n";

}