for (1 .. int(scalar @data / 5)) {
   my $certification = shift(@data);
   my $number        = shift(@data);
   my $month         = $mon[$number - 1];
   my $day           = shift(@data);
   my $year          = shift(@data);
   my $mo_yr         = shift(@data);

   print "Certification is $certification on $month $day $year <p\/><HR>\n";
}