...query statements built, etc., and get plants AOH...

print "plants: ".Dumper($plants);      
         
for my $i (0..$#$plants) {      
    $plants->[$i]{'common'} =  $plants->[$i]{'common_name'}; 
    
    #query the database for available sizes of the plants
    $sizes = $self->dbh->selectall_arrayref($s_stmt, {Slice => {}},($plants->[$i]{'id'}, 1));  
    
    print "sizes: ".Dumper($sizes);
     
    if (@{$sizes}) {  
        $jctr = 0;
        for my $j (0..$#$sizes) {  #j-loop
            print "j-loop: ". $plants->[$i]{'common'}."\n";
line 74:    $plants->[$i]{'common'}->[$jctr]{'sizes'} = $sizes->[$j]{'plantsize'}.$sizes->[$j]{'unit'};
             
            #query the database for growers with those plants  
            $growers = $self->dbh->selectall_arrayref($g_stmt, {Slice => {}}, ($sizes->[$j]{'plantid'}, $sizes->[$j]{'plantsize'}, 1)); 
            
            print "growers: ".Dumper($growers);
            
            #haven't gotten this far yet
            if (@{$growers}) {
                $kctr = 0;
                for my $k (0..$#$growers) {
                    $plants->[$i]{'common'}->[$jctr]{'sizes'}->[$kctr]{'growers'} = $growers->[$k]{'two_letter_abbrev'};
                    $kctr++; #increase counter
                } #for growers
            } #if growers
            
            $jctr++;   #increase counter
            
        } #for sizes    
    } #if sizes
} #for plants loop