@itemsarray = ('zero', 'one', 'two', 'three', 'four', 'five', 'six');

print "var items = new Array(";
for $i (0 .. $#itemsarray) {
    print qq('$itemsarray[$i]', '$i');
    print ", " unless $i == $#itemsarray;
}
print ");";
[download]

which prints:

var items = new Array('zero', '0', 'one', '1', 'two', '2', 'three', '3
+', 'four', '4', 'five', '5', 'six', '6');
[download]

you can then populate a select box (via javascript) with:

for(var i = 0; i < items.length; i += 2) {
    document.forms[0].selectbox.options[i/2] = new Option(items[i], it
+ems[i+1]);
}
[download]

where document.forms[0].selectbox is the actual select box you want to modify.

Update: I should mention that I'm assuming that the index in the (perl) array you're working with is the value to be used in the option tag. ie. <option value="0">zero</option>

Update 2: oh yeah, like fruiture said, this will break if zero was in fact ze'ro -- extra escaping require so as not to break the JS array.