#!/usr/bin/perl
use strict;
use warnings;
use JSON;

open my $fh, '<', 'file2' or die $!;

my %query;

while (<$fh>) {
	chomp;
	my (undef, $cat, $id, undef, $val) = split /;/;
	if ($cat eq 'Query') {
		if (%query) {
			output(\%query);
			%query = ();
		}
		$query{$id} = [$val];
	}
	else {
		push @{ $query{$id} }, {ip => $val};	
	}
}

output(\%query);

sub output {
	my $query = shift;
	my ($id) = keys %$query;
	my $host = shift @{ $query->{$id} };
	print encode_json({Answer => $query->{$id}, id => $id, host => $host}),"\n";
}