Select Code to Download

foreach $key (keys %extractDataFunctionHash)
   {
...
      $numInHash = %$EDHRef;
      printf("\nPASS: Data extraction complete for %s...%d items in ha
+sh.\n", $key, $numInHash);
   }

$EDHRef->{$key} = \@extractedLinesArray;