our(@ratio, @ratiobox, @concentration, @wtPercent, @density, %chemname);
my (@concentrationbox, @densitybox, @wtpercentbox);

##</code><code>##

our(@ratio, @ratiobox, @concentration, @wtPercent, @density, %chemname, @wtpercentbox);
my (@concentrationbox, @densitybox);

##</code><code>##

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

##</code><code>##

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