use CGI qw(:cgi-lib);
%params = Vars();

foreach $member (key %params) {
    print "$member = ";
    @values = split /\0/, $params{$member};
    print "@values\n";
    
}