my $color_selector = '<select name="all_colors">';
    
    foreach my $color (sort {$all_colors{$a} cmp $all_colors {$b}} keys %all_colors ) {
        $color_selector .= qq~<option value="$color">$all_colors{$color}</option>~;
    }
    $color_selector .= '</select>';

    <div><% $color_selector %></div>