sub recurse_hash {
  my($hash,@findkeys) = @_;

  foreach (sort keys %{$hash}) {

    my $value = $hash->{$_};

    if (ref($value) eq 'HASH') {
     
      recurse_hash($value,@findkeys);
    }

    for my $key (@findkeys) {
      if ($key eq $_) {
        print "$_ = $value\n";
      }
    }
  }
}