#!/usr/bin/perl

use strict;

my $config = {
    host_1 => '192.168.1.1',
    host_2 => '192.168.1.2',
    host_3 => '192.168.1.3',
    host_4 => '192.168.1.4'
};

for my $i ( keys %{$config} ) {
    print "key: $i --- value: $config->{$i}\n";
}