use strict;
use warnings;
use Tk;

my $mw = new MainWindow;
my $tw = $mw->Text()->pack(-expand => 1, -fill => 'both');
foreach my $item (qw( item1 item2 item3 )) {
    my $tagname = $item;
    $tw->tagBind($tagname, "<Button-1>", sub { clicked_item($item) });
    $tw->insert('end', $item, $tagname);
    $tw->insert('end', "\n");
}
MainLoop;

sub clicked_item {
    my ($item) = @_;
    print "You clicked on item $item!\n";
}