I think your problem may be that Tk::Text's insert dosn't expect to have to dereference hashes. I would first try this:

# $txt->insert('end', "$worksheet->{Cells}[$row][$col]->{Val}");
my $string = $worksheet->{Cells}[$row][$col]->{Val};
$txt->insert('end', $string);
[download]