I think that code can be tightened up a bit:

$profile->{require_some} = {
    foo_fields => [ 1, grep /^foo_\d+$/, $q->param ]
};
[download]

But apart from that I'm afraid this is the best solution available to me. Thanks!