my $count = 0;
foreach $min (@min) {
    $count++ if ($_[0] >= $min)
}
foreach $max (@max) {
    $count-- if ($_[0] > $max)
}
return $count;