$clref = $dbh->prepare ("SELECT color FROM item WHERE prod_id = ".$ref->{product_id});
               $clref->execute();
    
               while (my $color = $clref->fetchrow_hashref()) {
               push @{$ref->{color}}, $color->{color};
                  }