my $zeile = 5;
my $z5 = ("\n" x $zeile) . "Zeile 5";
$textfeld -> insert("1.0", $z5);