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

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