while (($key, $value) = each %$hash_ref) {
    # do something...
}
[download]

Is it possible to get each pair of key and value in foreach with each function ?

each is an iterator. Foreach loops works on list. You're asking if it's possible to cut a piece of wood with a screwdriver.

A foreach loop (whether using the for or foreach keyword) calls the list building expression once, and iterates over the resulting list.

A C-style for loop (whether using the for or foreach keyword) could, since it's really a while loop with bells and whistles.

Since you can probably cut a piece of wood with a screwdriver if you tried hard enough,

for my $pair (
    sub {
        my @pairs;
        while (my ($k,$v) = each %h) { push @pairs, [$k,$v] }
        @pairs
    }->()
) {
    my ($k,$v) = @$pair;
    ...
}
[download]

But using the appropriate tool is better.

while (my ($k,$v) = each %h) {
    ...
}
[download]

or

for my $k (keys %h) {
    my $v = $h{$k};
    ...
}
[download]

No.each works with while, and for works with keys. Corrections: Re^6: What is happening ? and Re^7: What is happening ?

In other words the hash has been left in a potentially bad state.

OK thanks!