for (my $i=1; $i<=$lines; $i++) {
	my $certification = shift(@data);
	my $number = shift (@data);
	my $month = $mon [$number-1];
	my $day = shift (@data);
	my $year = shift(@data);
	# printf ....
}