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

use Time::Piece;

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

for my $dir (glob '???/') {
    say substr +(glob "$dir*/")[-1], 0, -1;
}