sub myTagCallback {
    my $theTextWidget = shift; # I don't know why this shows up!
    my $str           = shift;
    my $arrRef        = shift;
    my $tableWidget   = shift;
    .
    .
    .
}

.
.
.

       $myTextWidget->tagBind ( 
                $myTagName, 
                "<ButtonRelease-1>", 
                [\&myTagCallback, 
                  $myString, 
                 \@myArrayOArrays, 
                  $myTableWidget]
        );  
.
.
.