Select Code to Download

my $i = 0;
    for my $chems (sort keys %density) {
...
        $wtpercentbox[$i] = $frame3->Entry(-bg=>'grey', -width => 5, -
+textvariable => \$wtPercent[$i], -justify => "center")->grid(-row=>$r
+ow,-column=>5);   
        $i++;
    }

sub RATIOCALC
{
...
    }else{
        $statustext = "You need to select weight or volume ratio!"
    };

#!/usr/bin/env perl -w

...
        $i++;
    }
}