How about just having an array that holds whatever pieces of text you want and looping through it.
(Untested)
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $main = MainWindow->new;
my $label1 = $main->Text(
-width => 50
)->pack;
my $count = 0;
my @texts = (
"This is the first piece.\n",
"This is the second.\n",
"This is the third.\n",
"etc...\n",
);
my $button = $main->Button(
-text => "Next",
-command => sub {
$label1->insert('1.0', $texts[$count++]);
}
)->pack;
MainLoop;
kelan
Perl6 Grammar Student