my $frac = sprintf("%.9g", ($num - $int) );