my @values = qw/
                One
                Two
                Three
                Four
                Zoobdude(_Been_to_Dennys?_:)
               /;

my %popup;

$popup{$_} = sprintf "%40s",$_ foreach @values;

print $cgi->popup_menu(
                       -name => 'popup',
                       '-value' => [ keys %popup ],
                       '-labels' => \%popup,
                      ),"\n";