#!/usr/bin/perl -w
use strict;

open(DOMAINLIST,'<domainlist') or die,$!;
my @list=<DOMAINLIST>;
chomp @list;
open(RESULT,'<result') or die,$!;
while(<RESULT>){
my $domain;
my $i=0;
my $count=0;
for (my $line=$_){
chomp $line;
while($i<scalar(@list)){
$domain=$list[$i];
chomp $domain;
if (/\Q$domain\E/) {
++$count;
}
print "$domain\n";
print "$count\n";
++$i;
}}

}

close RESULT;