use strict;
use warnings;
use diagnostics;

# you got this array from your Database...
my @foo=qw(red blue green purple grey pink black);

print "<SELECT NAME=test> \n";
foreach (@foo){
	print "<OPTION VALUE=\"$_\"> $_\n";
};

print "</SELECT>";