D:\DATA\HOME\Perl>TableTest.pl
Yes Master?
You rang?
{
  # tied Tcl::Var
  active => "",
}
{ "0,0" => "Hello", "1,1" => "Great", "2,2" => "world" }

D:\DATA\HOME\Perl>TableTest.pl
Yes Master?
{
  # tied Tcl::Var
  "0,0"    => "Goodby",
  "1,1"    => "cruel",
  "2,2"    => "world",
  "active" => "",
}
{ "0,0" => "Hello", "1,1" => "Great", "2,2" => "world" }

D:\DATA\HOME\Perl>