my $iter = get_iter( \%hash );
while ( my ( $k, $v ) = $iter->() ) {
   ...
}