$table .= join '',map{"<td>$_</td>"}$date,@f[3..6];