Select Code to Download

use strict;
use warnings;
...
while(my ($key, $val) = each %capital) {
    say "key: $key, val: $val";
}

Countries starting from Germany:
key: Germany, val: Berlin
...
key: France, val: Paris
key: England, val: London
key: Egypt, val: Cairo