my $value = sprintf('%.'.abs($ad).'f',$f);