my $fmt = '%.3f';
my $val = .123456;
my $str = sprintf $fmt, $val;