--- a/src/parallel_execution/lib/Gears.pm	Sat Nov 23 16:27:58 2019 +0900
+++ b/src/parallel_execution/lib/Gears.pm	Sat Nov 23 16:43:24 2019 +0900
@@ -24,9 +24,7 @@
 
 sub extraction_dg_compile_sources {
   my $self = shift;
-  for my $cbc (@{$self->{compile_sources}}) {
-    $self->extraction_data_gears($cbc);
-  }
+  map { $self->extraction_data_gears($_) } @{$self->{compile_sources}};
 }
 
 sub extraction_data_gears {
@@ -34,14 +32,14 @@
   open my $fh , '<', $cbc_file;
   while (my $line = <$fh>) {
      if ($line =~ /#interface\s*"(.*)\.h"/) {
-        $self->{data_gears_with_count}->{$1}++;
+        $self->{data_gears_with_count}->{$1}->{caller}->{$cbc_file}++;
         push(@{$self->{interfaces}}, "$1.h");
         next;
      }
 
      if ($line =~ /__code/) {
        while ($line =~ /struct (\w+)*/g) {
-         $self->{data_gears_with_count}->{$1}++;
+         $self->{data_gears_with_count}->{$1}->{caller}->{$cbc_file}++;
        }
      }
   }