print "print an example of negative zero\n";
@range = (-0.0000001, -0.000001, -0.00001, -0.0001);

foreach $example (@range)
{
    my $preround = sprintf ("%.5f",$example);
    my $tret = sprintf("rounded float:%7.5f \n",$preround);
    
    print "The Number $example is represented as $tret, here's the rounded num $preround\n";
}