in reply to Peek a hash without breaking iterator

I guess. What happens if you avoid each?

foreach my $key ( keys %hash ) {
    print qq($key => $hash{$key}\n);
    my %other_hash = %hash;
}

[download]

If i run this, i don't get an infinite loop...

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

In Section Seekers of Perl Wisdom