while (my (undef, $v) = each %fred)