( $j = sprintf("%.6f", $j) ) =~ s/\..*//s;