sub genLookupTable{
#begin subroutine genLookupTable
#ArrayRefs is a global variable wherein the references to the arrays of interest are stored
 
my $lengRefs = @ArrayRefs
for(my $i = 0; $i<$lengRefs; $i++){
	print time()." is the time before\n";
	my @lines = @{$ArrayRefs[$i]};
	print time()." is the time after\n";
	my $why = @lines;
	print " The length of lines for $i is $why\n";
…