Select Code to Download

@color = split (/,/, $ref->{color});

td ({-colspan => "3", -align => "right"}, "Colors:", popup_menu( -name
+ => "color", -values => \@color))),

sub get_product_table
{
...
                 
     
}

sub add_item
{
...
    $cart_ref->{item_id}->{qty} = $qty;
                $cart_ref->{$item_id}->{color} = $color;        
}

sub format_cart_html
{
...
            ));
            return (table ({-align => "CENTER", -border => 0}, @row));
}