printf PLOT ("%.5f %.5f %.5f \n", $a[1}, $a[2], $a[3]);