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