sub compare { my ($points, $quota) = @_; my @comparisons = ( # points, quota [ 18000, 24 ], [ 16000, 23 ], [ 14000, 22 ], ... ); foreach my $cmp ( @comparisons ){ return $cmp->[1] if $points > $cmp->[0] && $quota < $cmp->[1]; } return 15; }