use strict;
use warnings;

my @multi_array = map [split], <DATA>;
my @by_second = map {$_->[1] *= 1.1E3; $_;} @multi_array;
printf "%E %E %E\n", @{$_}[0..2] for @by_second;

__DATA__
1.10000E0 1.00000E0 1.00000E0
2.20000E0 2.00000E0 2.00000E0
3.30000E0 3.00000E0 3.00000E0

##</code><code>##

$ perl split.pl
1.100000E+00 1.100000E+03 1.000000E+00
2.200000E+00 2.200000E+03 2.000000E+00
3.300000E+00 3.300000E+03 3.000000E+00

##</code><code>##

use strict;
use warnings;

printf "%E %E %E\n", @{$_}[0..2] for map {$_->[1] *= 1.1E3; $_;} map [split], <DATA>;

##</code><code>##

printf "%E %E %E\n", @{$_}[0..2] for map {my $c = [split]; $c->[1] *= 1.1E3; $c;} <DATA>;