@to_be_written = grep { split(/_/)[0] <= $today } @busdir;