$lb->tagBind ('cr_link', "<Button-1>", [ \&show_cr, "cr_link" ]);

##</code><code>##

#psuedo code
my $i = 0;
my $h = {};
for (@tags)
{
  $lb->tagConfigure("cr_link$i", -options => 'values');
  $lb->tagBind("cr_link$i", "<Button-1>", [ \&show_cr, "$i" ]);
  $h->{$i} = "Something useful here like $text_of_lb->{$i}";
  $i++;
}