printf OUT "%-15s %-13s %-16s %-13s\n",$fname,$drctotal,$metaltotal,$basetotal);
for ($i=0;$i<5;$i++){
printf OUT "%-30s %-10s %-30s %-10s\n",$METAL[$i],$METALVAL[$i],$BASE[$i],$BASEVAL[$i];
}

##</code><code>##

<table>
<tr>
  <td>$fname</td>
  <td>$drctotal</td>
  <td>$metaltotal</td>
  <td>$basetotal</td>
  <td>$METAL[0] $METALVAL[0] </br>
      $METAL[1] $METALVAL[1] </br>
      $METAL[2] $METALVAL[2] </br>
      $METAL[3] $METALVAL[3] </br>
      $METAL[4] $METALVAL[4] </br>   
  </td>
  <td>$BASE[0] $BASEVAL[0] </br>
      $BASE[1] $BASEVAL[1] </br>
      $BASE[2] $BASEVAL[2] </br>
      $BASE[3] $BASEVAL[3] </br>
      $BASE[4] $BASEVAL[4] </br>
  </td>
  </tr>  
</table>