my $rangecolumns = $_[2]->cget(-columns); $card[0] = ''.$_[0].''; for(my $c = 0; $c < $rangecolumns; $c++) { push @card,"\n"; }

".$_[2]->headerCget($c, -text)."