Select Code to Download

my %hash = ("one" => 1, "two" => 2, );

for ( my ( $key, $value ) = each %hash ; defined $key ; ( $key, $value
+ ) = each %hash ) {
    print $key . ': ' .  $value . "\n";
}

my %hash = ("one" => 1, "two" => 2, );
while ((my $key, my $value) = each %hash) {
    print $key, "\n";
}