21   my @x = 1..@$d;                         ### Takes the values 1..30, 1..31, and 1..32
22   my @logx = map log, @x;                 ### is the logs of those sequential ranges
23   my @logd = map log, @$d;                ### the loglogs of those sequential ranges.
24   printf "%10.2f %10.2f %10.2f\n", fit( \@x, $d), fit( \@x, \@logd), fit( \@logx, \@logd );