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

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