Select Code to Download

    for (0..$numChem)  #numChem is the size of the array
    {
...
        $solvCheck ->bind("all","<Button-1>" => \&colorme);   #when bu
+tton-1 is pushed, execute &colorme
        $solvCheck -> pack();
    }

    for (0..$numChem){
        ${$wtPercent}[$_] = 0;
...
        );
        $wtPercentbox[$_] -> pack(-pady => 4);
    }

sub colorme
{
...
    $wtpercentcolor{$index} = "black";
    #$wtpercentcolor = "black"
};

#!/usr/bin/env perl -w

...
    $wtpercentcolor{$index} = "black";
    #$wtpercentcolor = "black"
};