foreach my $field (param) {
  next if grep { $field eq $_ } qw(city state country);
  foreach my $value (param($field)) {
     #process non blank thedata variable
     ...
  }
}