open (DATABASE, "$filename" || &ErrorMessage);
@entry = <DATABASE>;                                 #Assign DB entries to array
close(DATABASE); 

@CurrentData = split(/\|/, $entry[$lines - 1]);      #Assign last line of data to array

@PreviousData = split(/\|/, $entry[$lines - 1]);
$count = $lines - 1;
                                                     #Find previous weeks data by comparing dates
while (($PreviousData[1] eq $CurrentData[1]) && ($count >= 0)) {
   $count -= 1;
	 @PreviousData = split(/\|/, $entry[$count]);
}