for (@sortedbus) {
    push (@oldbus,$_) if (m/^(\d)+?/ && make_nasty_date($1) < $today);
}