#!perl -w
use Tk::TableMatrix;
use Tk;

my $var = {};
my $text="bla1 bla2 bla3 bla4";
foreach my $row  (0..4){
  foreach my $col (0..4){
    $var->{"$row,$col"} = "$text $col";
  }

}

my $mw=tkinit;
my $tm = $mw->Scrolled('TableMatrix',
  -scrollbars=>'osoe',
  -bg=>'white',
  -rows=>3,
  -cols=>3,
  -wrap=>1,
  -multiline=>1,
  -variable=>\$var)->pack(-expand=>1, -fill=>'both');

MainLoop