Select Code to Download

$arrayVar->{"7..9,$col"}->tagConfigure(-state => 'normal');

# you are trying to call a method from a cell...won't work
# it must be on the table
$t->tagConfigure(........); # read the docs

#!/usr/bin/perl
use Tk;
...
#      if adding columns or rows                
}