CGI.pm's scrolling_list() and popup_menu() methods can be hard to get the hang of. Even though the others have answered your question, another question that you will likely ask is how do you now use different labels for your values -- that is, instead of: 

<option value="Fred">Fred</option>
<option value="Wilma">Wilma</option>
<option value="Dino">Dino</option>

[download]
You now want: 
<option value="4">Fred</option>
<option value="5">Wilma</option>
<option value="9">Dino</option>

[download]
Sometimes, you wonder why you can't just say: 
my %name = (Fred => 4, Wilma > 5, Dino => 9);
print scrolling_list(-name => 'list_name', -values => \%name);

[download]
And let it handle the mapping for you. There are reasons why you cannot do this: and there may be other reasons. So, how to you achieve a select box that looks like: 
<option value="4">Fred</option>
<option value="5">Wilma</option>
<option value="9">Dino</option>

[download]
First, we deiced what the values and labels are going to be. Originally, the values and the labels were the same, but now the values are [4,5,9] and the labels are [qw(Fred Wilma Dino)]. So the hash i provided above was backwards! 
my %name = (Fred => 4, Wilma > 5, Dino => 9);

[download]
This is snag #1 ... make sure your hash keys are the values that will be passed to -values. Let's reverse the hash by hand: 
my %name = (4 => 'Fred', 5 => 'Wilma', 9 => 'Dino');

[download]
Now we need to decide how to order. We'll pick alphabetical ordering by the labels. We achieve this when we specify the -values attribute. Since that attrib wants an array ref, we will need to construct one from our hash, %name. Here is one way to do that: 
my @value = sort { $name{$a} cmp $name{$b} } keys %name;

[download]
A bit daunting for newbies, but rest assured that the results are (9,4,5) - that is, the numbers will be ordered by their respective labels, alphabetically.

Since we have already done the work of 'lining up' our values to our labels, all we need do to specify the -labels attribute is pass a reference to the hash. Here goes: 
my %name  = (4 => 'Fred', 5 => 'Wilma', 9 => 'Dino');
my @value = sort { $name{$a} cmp $name{$b} } keys %name;

print scrolling_list(
    -name   => 'list_name',
    -values => \@value,
    -labels => \%name,
);

[download]
And the result should be: 
<select name="list_name" size="3">
<option value="9">Dino</option>
<option value="4">Fred</option>
<option value="5">Wilma</option>
</select>

[download]
Hope this helps. :)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In reply to Re: Dynamic values in scroll box? by jeffa
in thread Dynamic values in scroll box? by coldfingertips

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.