#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Time::Piece;
use Path::Tiny qw{ path };

my $now = localtime->ymd("");

for my $dir (grep $_->is_dir, path('.')->children) {
    for my $date (grep $_->is_dir, $dir->children) {
        say $date if $date->basename > $now;
    }
}