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