Detlef, >### Is it this what you are looking for? >[Snip]
thanks for your answer. That's working fine in the MacPerl-Window but not in my dialog. I was looking for something like this: while ( (length($faktoren) <= 15) && (@faktoren > 0) ) { $faktoren .= "$faktoren[0] "; shift @faktoren; } $dlg->item_text($dlgh{faktoren1}, $faktoren); undef $faktoren; for ( @faktoren ) { $faktoren .= "$faktoren[0] "; shift @faktoren; } $dlg->item_text($dlgh{faktoren2}, $faktoren) if $faktoren; This is doing the job so there is no need for a more sophisticated solution. But if someone has one, it will be always welcome :-) \bye martin -- "Open Source" heißt, jeder Anwender erhält eine Kopie des Quellcodes. Dabei stoßen Entwickler, die mit Linux arbeiten, häufig auf Sicherheitslücken. Auf Microsoft Windows trifft dies nicht zu. (Microsoft zu: Linux im Handel)