my %skip = map {$_ => undef } qw(city state country);

foreach my $field (param) {
  next if exists $skip{$field};
  foreach my $value (param($field)) {
     #process non blank thedata variable
     ...
  }
}