# assuming that DATA contains the config
my @hosts;

do{ &new_host() if /{/ } while <DATA>;

sub new_host {
	my $data = {};
	until (defined ($_=<DATA>) && $_=~/}/) {
		chomp;
		my (undef,$field,$value)=split /^[\t ]*([^=]*)=/,$_;
		$data->{$field}=$value;
	}
	push @hosts,$data;
}