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

foreach my $example (@range)
{
    my $twice = sprintf "%.5f", $example;
    my $tret = sprintf("rounded float:%7.5f, other:%7.5e",$twice,$twice);
    
    print "The Number $example is represented as $tret\n";
}