my $id = $mw->repeat(10000, \&loop);

MainLoop();

sub start {
	$textfield1->insert('end', "Eintrag");
}

sub stop {
	$textfield1->delete(0);
	$textfield2->insert('end', "Eintrag geloescht");
}

sub clear {
	$textfield1->selectionSet(0, 'end');
	my @indexlist = $textfield1->curselection();
	$textfield1->selectionClear(0, 'end'); # hier werden alle eintraege deselektiert

foreach my $i ( @indexlist ) {
	$textfield1->delete(0);
}
}

sub loop {
	$textfield1->selectionSet(0, 'end');
	my @indexlist = $textfield1->curselection();
	$textfield1->selectionClear(0, 'end'); # hier auch
	foreach my $i ( @indexlist ) {
		#do something
	}
	
}