OUTER: foreach my $outerField (@fields[2,4,5,9,7,1]) {
      my %hash;
         INNER: foreach my $innerField(@fields[2,4,5,9,7,1]) {
            $hash{$innerField}++;
         }
      push @report, \%hash;
   }