So you are only getting the last element, eh? This leads me to believe that you are using something like this:

split up query string and decode pairs into $val and $key
insert $key into params hash with value $val
[download]

foo.cgi?foo=mashed&foo=fried&foo=boiled&foo=tofu
[download]

But there's a catch - if the key exists, then is the value a scalar, or is it an array? If it's the first time the key is encountered, then the value is simply a scalar. The second time the key is encountered, it's still a scalar. The value needs to be converted to an array, and then the new value is added. Each time after that, simply push the new value to the already existing array:

if (defined $params{$key} && ref($params{$key}) eq "ARRAY") {

    # key has been seen at least twice now
    # the value is a an anonymous array, push the new value
    push (@{$params{$key}}, $val);
} 
elsif (defined($params{$key})) {

    # second time key has been seen
    # the value is a scalar, 'turn' it into an anonymous array
    $params{$key} = [$params{$key}, $val];
} 
else {
    # first time this key has been seen
    # assign the value as a scalar
    $params{$key} = $val; 
}
[download]

Jeff

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)

If the key exists, then is the value a scalar, or is it an array? If it's the first time the key is encountered, then the value is simply a scalar. The second time the key is encountered, it's still a scalar. The value needs to be converted to an array, and then the new value is added. Each time after that, simply push the new value to the already existing array:

You could also do this quite nicely with a tie:

package Quantum::Heisenberg;
sub TIESCALAR { bless [], $_[0] }
sub STORE { push @{$_[0]}, $_[1] }
sub FETCH { my $self = shift; $self->[int rand @$self]; }
1;
[download]

Changing the FETCH method to do what you'd expect is left as an exercise for the reader ;)

Tony

use CGI qw(:standard);
@all_selections = param ('field');
[download]

Gary Blackburn
Trained Killer