while (my @row = split / /, ) { $row[1] *= 1.1E3; printf("%E %E %E\n", @row); } exit; __DATA__ 1.10000E0 1.00000E0 1.00000E0 2.20000E0 2.00000E0 2.00000E0 3.30000E0 3.00000E0 3.00000E0