my $set2 = $set->grep( 
        sub {
            return ( $_->hour > 7 or  $_->hour < 23);
        }
    );	
	
my $iter = $set2->iterator;
while ( my $dt = $iter->next ) 
{
        print $dt->ymd;
};