map{$_->delete(0,'end')}@wtpercentbox;
for my $i (0..$#wtpercentbox) {
		$wtpercentbox[$i]->insert('end',$wtPercent[$i]);
}