What do you actually want to achieve? The sample code below may give a better feel for what is going on. Note that the columns are not fixed and that the width of the entries is enough that not all the columns are visible.

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

use Tk;
use Tk::Table;

use strict;
use warnings;

my $mw = MainWindow->new;
$mw->geometry("200x200");
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);
    }
}

MainLoop;
[download]