Select Code to Download

foreach my $field (@fields) {
  my $value = param($field);
...
  next if $value eq "";
  # construct SQL or otherwise work with $value
}

my %good_params =
    map { $_ => $params{$_} }
    grep { $params{$_} ne ""}
    keys %params;