my $i = 0;
	for my $chems (sort keys %density) {
		my $row = $i+2;
	    $frame3->Label(-text=>$chems)->grid(-row=>$row,-column=>1);
	    $densitybox[$i] = $frame3->Entry(-bg=>'grey', -width => 5, -textvariable => \$density[$i], -justify => "center")->grid(-row=>$row,-column=>2);
	    $concentrationbox[$i] = $frame3->Entry(-bg=>'grey', -width => 5, -textvariable => \$concentration[$i], -justify => "center")->grid(-row=>$row,-column=>3);
	    $ratiobox[$i] = $frame3->Entry(-bg=>'white', -width => 5, -textvariable => \$ratio[$i], -justify => "center")->grid(-row=>$row,-column=>4);
	    $wtpercentbox[$i] = $frame3->Entry(-bg=>'grey', -width => 5, -textvariable => \$wtPercent[$i], -justify => "center")->grid(-row=>$row,-column=>5);   
	    $i++;
	}