foreach $key (keys %extractDataFunctionHash) { # Loop over the data in each lines array and extract the specific # data for that sample. Call the function defined for that key. # #printf("calling has function: %s\n", $key); $extractDataFunctionHash{$key}($key, $DNRef, $EDHRef); $numInHash = %$EDHRef; printf("\nPASS: Data extraction complete for %s...%d items in hash.\n", $key, $numInHash); } #### $EDHRef->{$key} = \@extractedLinesArray;