if ($lines <= 0) {

    #print "has no records at this time.";

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

    while ($lines >=1) {

        $certification = shift(@data);
    
        print "Certification is $certification on ";

        my $number = shift (@data);
        $month = $mon [$number-1];
        $day = shift (@data);
        $year = shift(@data);
        $mo_yr = shift(@data);
        print "$month  $day $year $mo_yr<p/><HR>";
    
        $lines--;
    }
}