Name1|10.10.10.10|
Name2|20.20.20.20|

#!/usr/bin/perl

my $config_file="cfg.txt";

open(config, $cfg_file);
flock(config, 2);
LINE: while(<config>) {
	chomp;
	next LINE if(/^$/); #Skip blank lines
	my ($HOSTNAME,$IP) = split(/|/);
	my $temp = {HOSTNAME => $HOSTNAME,IP => $IP};
	next LINE;
}
print $temp;

my @temp;
while(<config>) {
    chomp;
    next if(/^$/); #Skip blank lines
    my ($HOSTNAME,$IP) = split(/\|/);
    push(@temp, {HOSTNAME => $HOSTNAME,IP => $IP});
}