while ($i++< $iterations)
{
  $sqrt = $sqrt + 0.5*($y - $sqrt**2) / $sqrt;
}

##</code><code>##

use strict;
my $i=0;
my $iterations=10;
my $y=1e6;
my $divs=0;
 
while ($y > 2)
{
  $y = $y/4;
  $divs++;
}
 
my $sqrt= 0.261599e0 + $y*(1.114292 + $y * (-0.516888 + $y * 0.141067 ));
 
while ($i++< $iterations)
{
  $sqrt = $sqrt + 0.5*($y - $sqrt**2) / $sqrt;
  print $sqrt,"\n";
}
 
print $sqrt*(2**$divs),"\n";