my %var = $query->Vars;
foreach my $param (keys %var) {
   foreach my $value (split /\0/, $var{$param}) {
      ...
   }
}