my $q = CGI->new();
my $params = $q->Vars;
print $params->{'foo'}; # one

##</code><code>##

my $q = CGI->new();
my %params = $q->Vars;
print $params{'foo'}; # one

##</code><code>##

my $q = CGI->new();
my %hash = $q->Vars();
foreach my $key ( keys %hash ) {
    my $values = $hash{$key};
    $hash{$key} = [ split /\0/, $values ];
}