As always, thank you all for the helpful suggestions! Here is an alternative method using -variable.

#!usr/bin/perl
use Tkx;
use strict;
use warnings;
use Tkx::Table;
Tkx::package_require("Tktable");

my $mw = Tkx::widget->new(".");
my $lamina_allow_frm=$mw->new_frame();
$lamina_allow_frm->configure(-borderwidth=>2, -relief=>"groove");
$lamina_allow_frm->g_pack(-side=>'top', -fill=>'both');
my %hash = (
    '0,0' => 'OHT/FHT',
    '0,1' => 'AML'
);
my $lamina_table = $lamina_allow_frm->new_table(-rows => 9, -cols => 7
+, -variable => \%hash, -state => 'disabled')->g_pack();

Tkx::MainLoop();
[download]