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

my %count;

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

}

close RESULT;

foreach my $domain (keys %count) {
  print "$domain\n";
  print "$count{$domain}\n";
}