#!/usr/bin/perl
    use strict;
    open(LOGFILE,"Output.txt") or die("Could not open log file.");
    my $domain_name = 'domain.txt' ;
    open(DOM, $domain_name);
    my @r_contents = <LOGFILE>;
    close(LOGFILE);    
    while(<DOM>) {
        chomp;
        my $line = $_;
        my @lowercase = map { lc } @r_contents;
        my @grepNames = grep  /^$line/, @lowercase;
        foreach (@grepNames) {
            if ( grep  /^$line/, @lowercase ) {
                $domains{lc($_)}++ ;            }
    	}
    }
    
    close(DOM) ;    
    foreach my $domain (sort keys %domains) {
        my %seen ;
     	($Dname, $WeekNum) = split(/\s+/, $domain);
     	my @array1 = grep { ! $seen{ $_ }++ } $WeekNum;
    	push @array2, @array1;
    	my @array4 = "$domains{$domain} $domain" ;
    	push @matrix,@array4 ;
    }
       printf "%-10s %-25s %-25s\n", 'DoaminName', "Week $array2[0]" ,"Week $array2[1]","Week $array2[2]";
       print " @matrix \n";