foreach $bus (reverse sort @busdir)
{

    $splbus = split (/_/, $bus, 1);
    
    if ($today >= $splbus)
    {
    	$buschecked++;
    } 
}