#!/usr/local/bin/perl -wl
my %hash=(a=>0, b=>1, c=>2);
my $key;
while (defined($key=each(%hash))) { last; }
while (defined($key=each(%hash))) { print($key); }

##</code><code>##

b
c

##</code><code>##

a
b
c