my @multi_array; push @multi_array, [split] for ; $_->[1] *= 1.1E3 for @multi_array; print join("\t", map { sprintf "%E", $_ } @{$_}),"\n" for (@multi_array); __DATA__ 1.10000E0 1.00000E0 1.00000E0 2.20000E0 2.00000E0 2.00000E0 3.30000E0 3.00000E0 3.00000E0