sub get_data
{
 my ($name,$value,$mydata,%lines,@data);	# Declare all our variables as local to this subroutine.
 $mydata = getfile($entrylog,1);			# Get the raw entry data from the entry log.
 @data = split (/\n\<NEXT\>\n/, $mydata);	# Split each entry into an array (@data).

	# Loop over each entry from the above array and do the following:
 
	# 1. Split the entry into an array of individual lines (@tmp).
	# 2. Loop over each line of the array @tmp and do the following:
	#	  a. Split each line into a name/value pair ($name and $value).
 	# 	  b. Turn the name value pair into subhash of %lines (a new entry hash we create).
 
 	# 3. We now have a 2D hash of entry data in %lines that will be returned.
 
 for ($i=0;$i<=$#data;$i++){
  @tmp = split (/\n/,$data[$i]);
  for (0..$#tmp){
   ($name,$value) = split(/::/,$tmp[$_],2);
   $lines{$i}{$name} = $value;
  }
 }
 return \%lines;
}
1;