Select Code to Download

my $hostname_ref = $dbh->selectcol_arrayref("SELECT hostname FROM perm
+_inventory ORDER BY hostname");

use CGI;

...

print $cgi->popup_menu(-name=>'my_popup',-values=>$array_ref);

<select name="my_popup" >
<option value="eenie">eenie</option>
...
<option value="miney">miney</option>
<option value="mo">mo</option>
</select>

#!/usr/bin/perl -w 
use strict;
...
print $cgi->dropdown_menu(-name=>'myselect',
                          -values=>$array_ref);

<select name="my_popup" >
<option value="ARRAY(0x928fb1c)">ARRAY(0x928fb1c)</option>
...
<option value="ARRAY(0x928fc84)">ARRAY(0x928fc84)</option>
     -- stuff deleted -- 
</select>

  :
use Data::Dumper
  : rest of our code
print Dumper($array_ref);

$VAR1 = [
          [
...
            'Bennett'
          ],
 --- etc ---

 
| stuff left out...
| handwaving...
print $cgi->popup_menu(-name=>'my_popup',-values=>[ map { $_ -> [0] } 
+@$array_ref ]);
| 
|