You might want to look at HTML::Table. For example:

use HTML::Table;
my $t = HTML::Table->new;
$t->setCell(1, 1, "Name");
$t->setCell(1, $_, sprintf "%d:00", ($_ + 5) % 12 + 1) for 2..16;
my $employee = "Randal"; my $sshift = 10; my $eshift = 14; # for testi
+ng
$t->setCell(2, 1, $employee);
$t->setCell(2, $_ - 8 + 2, "d") for $sshift..$eshift;
$t->print;
[download]

That dumps a table of two rows and the right columns, plus the letter d in the right cells below. That's about 90% of your code so far, right there. {grin}

-- Randal L. Schwartz, Perl hacker