%f=1..4;
while(($k)=keys%f)
{
  print qq!($k)=($f{$k})\n!;
  delete $f{$k}
}