my %h = map { $_ => 1 } qw( a b c d );

while (my $k = each(%h)) {
   last;
}

while (my $k = each(%h)) {
   print("$k\n");            # a b d
}