Cool! But that eval poked my eye.

The following can potentially save on some sqrt's too:

    my $delta_x = $radius ** 2 - ($center_r - $row) ** 2;
    if( $delta_x >= 0 ){
       $delta_x = int sqrt $delta_x;
       ...
[download]

bw, bliako