...
my $framebottom = $mw->Frame->pack(-side => 'bottom', -anchor => 'w', -padx => 5, -pady => 5, -expand => 1, -fill => 'both');

my $tablecontainer = $framebottom->Scrolled('ROText',
 -relief=>"groove", 
 	-wrap=>"word",
 	-cursor=>"arrow",
 	-scrollbars=>'se'
);

my $table = $tablecontainer->Scrolled(
  'TableMatrix',  -rows => 20,
  -cols          => 12, 
  -width         => 5,
  -height        => 5,
  -font          => $font,
  -variable      => $data,
  -background    => "#ffffff",
  -titlerows     => 1,
  -titlecols     => 1,
  -selectmode    => 'extended',
  -flashmode     => 'on',
  -borderwidth   => 0,
  -scrollbars    => 'se',
  -anchor        => 'w',
  -colstretchmode=> 'last',
);
...