Parcourir un ‘Hash’ à l’aide des boucles ‘while’ et ‘each’

Author:
#!/usr/bin/perl -w
my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',