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