for $format (qw{ %.6g  %6.6g %6g %.6f %6.6f %6f}){
        print "\n$format\n";
        for (12344.99, 1.12345678, 0.000000123, 0.12345678, 123.45678, 123456, 12345.678901){
                $str = sprintf "$format",$_;
                print length($str)." - '$str'\n";
        }
}