use CGI;
my $q = CGI->new('1=1;8=8;9=1;9=2;9=3;9=4;9=5;9=6;9=7;9=8;9=9;99=99;a=a;b=b;Z=Z;');
for my $k ( sort $q->param ) {
    print join'|', $k, $q->multi_param( $k ), "\n";
}
print "##" x 3, "\n";
for my $k ( sort $q->param ) {
    my $v = $q->param( $k );
    print join'|', $k, $v, "\n";
}
__END__
1|1|
8|8|
9|1|2|3|4|5|6|7|8|9|
99|99|
Z|Z|
a|a|
b|b|
######
1|1|
8|8|
9|1|
99|99|
Z|Z|
a|a|
b|b|