Select Code to Download

sub compare {
  my ($points, $quota) = @_;
...
  }
  return 15;
}

my @comparisons = reverse map { [ ($_-15)*2000, $_ ] } 16 .. 24;