Indeed, but then I lose at golf ;)

Here's my solution that avoids a last and only gains me a couple of strokes...

map{
  $a=1-$_/10;
  map{
    $d=$a;
    $e=$b=$_/20-2;
    map{
      ($d,$e)=(2*$d*$e+$a,$e**2-$d**2+$b);
      $c=$d**2+$e**2>4?$d=8:_
    }1..50;
    print$c
  }0..59;
  print$/
}0..20
[download]