foreach my $cell (@cells)
    {
       print OUTPUT "<tr><td>$cell</td></tr>";
    }