open my $data_fh, 'data.txt' or die $!;
open my $log_fh, '>>', 'logfile.txt' or die $!;

while (<$data_fh>) {
	chomp;
	next if /^\s*$/;
	my ($domain, $IP) = split ',';
	if ($ip_obj->{src_ip} eq $IP){
		print $log_fh "$domain has been found";
	}
}