foreach my $key ( sort {$a <=> $b} $q->param() ) {
    my $value = $q->param($key);
    # now do whatever with $value
    ...
}