map{$_->configure(-textvariable=>\$wtPercent[2])}@wtpercentbox;