my @req_fields = qw(
 Shipping_address
 ...
 shipdayph
);
my @filled = grep { $query->param($_) } @req_fields;
failure if @req_fields && @filled
[download]

Another update: Took suaveant's suggestion(s), thought I caught that first one :)

Ok, I get it now, duh..