for ( -0.1, -0.01, -0.001, -0.0001, -0.00001, -10, ) {
    my $num = sprintf "%0.1f", $_;
    $num = abs( $num ) if $num == 0;
    printf "%s --> %0.1f\n", $_, $num;
}