my %h;
@h{a..d}=1..4;
while (my ($k,$v) = each %h) { last }
while (my $k = each %h) { print $k }

__END__
abd