while(my ($id,$name) = $sth -> fetchrow_array){
push @result,$name;
}

print qq {

<tr> 
    <td width="30"><div align="center">$result[0]</div></td>
    <td width="30"><div align="center">$result[1]</div></td>
    <td width="30"><div align="center">$result[2]</div></td>
  </tr>
  <tr> 
    <td width="30"><div align="center">$result[3]</div></td>
    <td width="30"><div align="center">$result[4]</div></td>
    <td width="30"><div align="center">$result[5]</div></td>
  </tr>
};