Select Code to Download

while (@lines) {
    $output .= "<TR>";
    for ( 1 .. 3 ) {
...
    }
    $output .= "</TR>";
}

my $fill = scalar @lines % 3;
while ($fill-- > 0) {
    push @lines, " ";
}