while(@data){
  my $certification = shift(@data);
  # etc.. blah blah
  print "<p\/><HR>";
}