$ perl -E'%h=(a=>1,b=>1,c=>1); while (my ($k) = each(%h)) { say $k; }'
c
a
b

$ perl -E'%h=(a=>1,b=>1,c=>1); while (my ($k) = each(%h)) { say $k; delete $h{d}; }'
c
a
b