my @options = ( 'Option 1', 'Option 2', 'Option 3', );
@options = map { "<option>$_</option>" } @options;
print '<select name="dropdown">', @options, "</select>\n";