for ($i=0;$i<=$#angerufen;$i++)
{
	if (length($angerufen[$i])!= 1) { # mehrstellige Zahl: neuer Eintrag
        push (@angerufen2, $angerufen[$i], "\n");
    } else { # einstellige Zahl wird an letzten Eintrag angehängt
        $angerufen2[-1] = $angerufen[$i].$angerufen2[-1];
    }
}