@cellsites =
    grep { my $age= $spd * -M $dir.$_;
        $age <= $yes  &&  $morning <= $age
    } readdir CELLSITES;