% foreach my $key ( keys %{$def->{select_hash}} ) {
% $html .= qq!<OPTION VALUE="$key"!.
% (grep(/^$key$/, split(',',$value)) ? ' SELECTED>' : '>' ).
% foreach my $key ( keys %{$def->{select_hash}} ) {
% $html .= qq!<OPTION VALUE="$key"!.
% (grep(/^$key$/, split(',',$value)) ? ' SELECTED>' : '>' ).