in reply to Re^6: What is happening ?
in thread problem using foreach and each with hash ref

Ok, I give up, I will disprove the other half of my thesis by myself :) 
%f=1..4;
while(($k)=keys%f)
{
  print qq!($k)=($f{$k})\n!;
  delete $f{$k}
}

[download]

In Section Seekers of Perl Wisdom