my $hash = { one => 1 };
PRED: foreach my $i (0..5) {
  scalar(keys %{$hash});
  print "PRED $i\n";
  while (my ($key, $val) = each %{$hash}) {
    print " - $key => $val\n";
    next PRED;
  }
  exit;
}