foreach $rowno (0..$#firstcol) {
    if ($numbers[$rowno]) {
        $table->setCellRowSpan($rowno+1, 1, $numbers[$rowno]);
        $table->setRowVAlign($rowno+1, "TOP")
    };
}

$table->print;