for my $i (0..1) {
  print "<tr>\n";
  for my $j (0..2) {
    print qq {    <td width="30"><div align="center">$result[$i*3+$j]</div></td>\n};
  }
  print "</tr>\n";
}