$o=sprintf "%10.4e",$o;
print "$o\n";