Here is a simple way. But ideally, you would want to find a way to find the widget under the 'current cursor' position, then use the Posn method to get it's row and column. Sometimes, the simplest is the best.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Table;

#The key point is that the scroll bars only scroll non-fixed columns.

my $mw = MainWindow->new;
#$mw->geometry("200x200");

my $x;
my $y;


my $table = $mw->Table
  (-rows => 9, -columns => 9, -fixedrows => 9)->pack;
    
  foreach my $row (0 .. 8) {
      foreach my $col (0 .. 8) {
              my $cell = $table->Entry (-width => 4, -text => "$col, $
+row");
                  $table->put ($row, $col, $cell);
  
      $cell->bind('<ButtonPress-1>' => sub{ $x = $col; $y = $row  });
  }
}

my $button = $mw->Button(-text => 'Get Current',
                -command => sub{
             print "$x $y\n";
        })->pack();
              
MainLoop;
[download]

Depending on your actual application, there may be better ways around your problem, but we will need to see something more by way of description. You might also want to study the Tk::TList or Tk::HList widget families.

jdtoronto