use Tk;
use Tk::Table;
use Data::Dumper;
use strict;

my ($row, $col);

#data, in your case, come from database
my @cell_vars;
foreach $row (0 .. 9) {
	my @row_vars;
	foreach $col (0 .. 9) {
		push @row_vars, $row * $col;
	}
	push @cell_vars, \@row_vars;
}

#presentation
my $mw = MainWindow->new;
$mw->geometry("600x250");
my $table = $mw->Table(-rows => 9, -columns => 9, 
                       -scrollbars => "se",
                       -fixedrows => 1, -fixedcolumns => 1,
                       -takefocus => 1)->pack;
foreach $col (1 .. 9) {
	my $col_header = $mw->Button(-text => "Column " . $col);
	$table->put(0, $col, $col_header);
}
foreach $row (1 .. 9) {
	my $row_header = $mw->Button(-text => "Row " . $row);
	$table->put($row, 0, $row_header);
	foreach $col (1 .. 9) {
		my $cell = $mw->Entry(-width => 10, -textvariable => \$cell_vars[$row][$col]);
		$table->put($row, $col, $cell);
	}
}

#manipulate data
$cell_vars[5][6] = "foo";

MainLoop;