while (my ($host,$ip) = each(%$config)) {
    print "$host => $ip\n";
}