$line	= sprintf ("%-6s %5s %10s %8s %-6s %-6s %-12s %-12s %-16s %-12s\n",@Array1[0],@Array1[1],$var1,$var2,$var3,$var4,$var5,$var6,$var7,$var8);