my $ht = \%h1; while ( my ( $key, $value ) = each(%$ht) ) { ... } [download]
In reply to Re: Hash value interpolation by ikegami in thread Hash value interpolation by csarid