use Path::Tiny qw/ path /;

        if( not path( $direct, $yr )->exists ) {
            path( $direct, $yr )->make_path;
        }

@Old = path( $direct, $yr )->children;