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