kristian@gate2:~> perl -wle '
my @a = qw(a b c);
use CGI;
my $q = CGI->new;
$q->param(-name => "foo", -values => [@a]);
print for $q->param("foo");
$q->delete("foo");
print for $q->param("foo");
'