Hi!
I never used our, so all this looks a bit strange for me :-). Anyway, try the following:
Change this
our(@ratio, @ratiobox, @concentration, @wtPercent, @density, %chemname
+);
my (@concentrationbox, @densitybox, @wtpercentbox);
to this:
our(@ratio, @ratiobox, @concentration, @wtPercent, @density, %chemname
+, @wtpercentbox);
my (@concentrationbox, @densitybox);
And this:
map{$_->configure(-textvariable=>\$wtPercent[2])}@wtpercentbox;
to this:
map{$_->delete(0,'end')}@wtpercentbox;
for my $i (0..$#wtpercentbox) {
$wtpercentbox[$i]->insert('end',$wtPercent[$i]);
}
It should work now (I hope so :-))
mawe