Select Code to Download

sub inaccuracy {
  my ($base, $multiple, $log) = @_;
  
...

  return $inaccuracy;
}

@sales = (12920, 12640, 12540, 12680, 12775, 12525, 12570, 12670,
12680, 12775, 12885, 12770, 12585, 12605, 12560, 12635, 12590,
12560, 12535, 12465, 12465, 12455, 12570, 12365, 12505, 12555,
...
4400, 4445, 4450, 4445, 4495, 4450, 4515, 4540, 4660, 4805, 4805,
4895, 4920, 4990, 5060, 5015, 5080, 5265);