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]; }