Replace print Dumper \%count2 with this code.

for my $key1 (sort keys %count2){
    for my $key2 (sort keys %{$count2{$key1}}){
      if ($count2{$key1}{$key2} > 1){
        printf "%-10s %-10s %d\n",$key1,$key2,$count2{$key1}{$key2};
      }
    }
  }
[download]