use List::Util 'min';
sub compare {
 my ($points, $quota) = @_;
 my ($newquota) = int($points/2000) + 15;
 if ($newquota > $quota && $quota <= 24){
     return min(24, $newquota);
 }
 return 15;
}