Select Code to Download

#!/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); }

b
c

a
b
c