in reply to Tk::Table query??

What you want to do actually has nothing to do with the
Table widget ... when you create your Entry widget do this...
... my $textVar = "Initial text"; my $e = $top->Entry( -width => '10', -textvar => \$textVar ); ...
Hope that helps.