#$lines is how many big loops
#I know there will be 5 lines of data in each loop

$lines =scalar@data/5;
#print "LINES $lines<p\/>";

#for ($i=1; $i<=$lines; $i++) {
foreach ($lines) {

for ($i=1; $i<=4; $i++) {	
	$certification = shift(@data);
	
print "Certification is $certification on ";
	$number = shift (@data);
	$month = $mon [$number-1];
	
print "$month";

	$day = shift (@data);
print "  $day";

	$year = shift(@data);
print " $year";	

	$mo_yr = shift(@data);
#print " $mo_yr";	

print "<p\/><HR>";	

}

}