SQL help for a brainy person... Can someone please help me with asome AOH in perl & MySQL

my $products;
while(my $row = $sth->fetchrow_hashref()) {
	if($products and $row->{p_comp} eq $products->[-1]->{component}) {
		$products->[-1]->{sub_components}->{$row->{ID}} = "$row->{p_s_comp} $row->{price}";
	}
	else {
		push @{$products}, {
			ID => $row->{product_ID}, 
			name => $row->{product_name}, 
			component => $row->{p_comp}, 
			sub_components => {$row->{ID} => $row->{p_s_comp} . ' ' . $row->{price}}};
	}
}
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

    my $products;
    while(my $row = $sth->fetchrow_hashref()) {
            if($products and $row->{p_comp} eq $products->[-1]->{component}) {
                    push @{$products->[-1]->{sub_components}}, [{ID=>$row->{ID}, value=>"$row->{p_s_comp}, $row->{price}"}];
                    
            }
            else {
                    push @{$products}, {
                            ID => $row->{product_ID}, 
                            name => $row->{product_name}, 
                            component => $row->{p_comp}, 
                            sub_components => [{ID=>$row->{ID}, value=>"$row->{p_s_comp}, $row->{price}"}]
                            };
            }
    }
 
 
$VAR1 = [
    {
    'ID' => '3',
    'component' => 'Sheet Size 1200 x 10mm',
    'sub_components' => [
            {
            'ID' => '18',
            'value' => 'x 2400mm l, 29.9'
            },
            [
            {
             'ID' => '19',
             'value' => 'x 2700mm l, 33.9'
            }
            ],
            [
            {
             'ID' => '20',
             'value' => 'x 3000mm l, 36.9'
            }
            ],
            [
            {
             'ID' => '21',
             'value' => 'x 3600mm l, 43.9'
            }
            ]
           ],
    'name' => 'BPB Aquastop'
    },
    {
    'ID' => '3',
    'component' => 'Sheet Size 1200 x 13mm',
    'sub_components' => [
            {
            'ID' => '22',
            'value' => 'x 2400mm l, 36.9'
            },
            [
            {
             'ID' => '23',
             'value' => 'x 2700mm l, 41.4'
            }
            ],
            [
            {
             'ID' => '24',
             'value' => 'x 3000mm l, 45.9'
            }
            ]
           ],
    'name' => 'BPB Aquastop'
    }
   ];

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:

sub show_product {
    my $body;
    my %p;
    my $ID=param("ID");
 
    my $sth = $dbh->prepare("SELECT product_specs.ID, pi.product_name product_name, product_specs.product_ID, product_specs.p_comp, product_specs.p_s_comp, product_specs.price
                        FROM product_specs
                        LEFT JOIN product_item pi ON pi.ID = product_specs.product_ID
                        WHERE product_specs.product_ID=?
                        AND product_specs.show_on_website !='1'
                        AND product_specs.live='1'
                        ORDER BY product_specs.p_comp ASC,  product_specs.price ASC") or dbdie();
    $sth->execute($ID) or dbdie();
    
    my $products;
    while(my $row = $sth->fetchrow_hashref()) {
            if($products and $row->{p_comp} eq $products->[-1]->{component}) {
                    push @{$products->[-1]->{sub_components}}, {ID=>$row->{ID}, value=>"$row->{p_s_comp}, $row->{price}"};
                    
            }
            else {
                    push @{$products}, {
                            ID => $row->{product_ID}, 
                            name => $row->{product_name}, 
                            component => $row->{p_comp}, 
                            sub_components => [{ID=>$row->{ID}, value=>"$row->{p_s_comp}, $row->{price}"}]
                            };
            }
    }
    $p{ROWS}=$products;
 
# this next bit is calling a HTML::Template making method i made, it doesn't do much except grab the 
# actual template code form the DB (this template is called TMPL_products and the contents is at the end for this example...)
# then sends the hash %p to the template engine
 
    $body .=$self->HTML_Template(
                            part=>'TMPL_products',
                            part_edit=>$self->is_user_in_group('admin'),
                            hash=>\%p);
    
   
    return $body;
}
 
 
 
 
# and the template is just:
 
 
<TMPL_LOOP ROWS> 
    <p>
    <TMPL_VAR name> - <TMPL_VAR component> 
        <select name="pid" >
            <option></option>
            <TMPL_LOOP sub_components> 
                <option value="<TMPL_VAR ID>"><TMPL_VAR value></option>
            </TMPL_LOOP>" >
        </select>
    </p>
</TMPL_LOOP>
 
The resulting HTML is the beginnings of a nice HTML Form to dislpay a complex set of products.
 
Please get in touch with me if anyone wants more info, as this has taken me months to get this far and I'm happy to share my knowledge... but I'm no expert, all that goes to Adam314 :)

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65: