$ perl -wle'
use Data::Dumper;
@a = qw(a);
use CGI;
my $q = CGI->new;
$q->param(-name => "foo", -values => [@a]);
print for $q->param("foo")' foo=23 foo=42
a