my $var;
# .... and then 
...., -textvariable => \$var, ...