my $form = $cgi->Vars();
foreach my $param (keys %$form) {
    my @values = split /\0/, $form->{$param};
    print "$param values are: ", join(', ', @values), "\n";
}