my %var = $query->Vars;

for my $param (keys %var) {
    my $param_value = $var{$param};
}