sub get_value_iter {
   my @values = @_;
   my $sub_iter;

   return sub {
      our $rv; local *rv = \$_[0];

      for (;;) {
         if ($sub_iter) {
            if ($sub_iter->($rv)) {
               return 1;
            }

            undef $sub_iter;
         }

         return if not @values;

         $rv = shift(@values);

         while (ref($rv) eq 'SCALAR') {
            $rv = $$rv;
         }

         if (ref($rv) eq 'ARRAY') {
            $sub_iter = get_value_iter(@$rv);
            next;
         }

         if (ref($rv) eq 'HASH') {
            $sub_iter = get_value_iter(values %$rv);
            next;
         }

         return 1;
      }
   };
}