sub test {
    my ($base_dir,$filenames_href) = @_;
    foreach my $filename (keys(%{$filenames_href})) {
        my $file_path = catfile($base_dir,$filename); # Could be file, dir, link, ...
        # TODO: Check if the $file_path is the latest I seen ?
    }
    return $latest_modified_file;
}

##</code><code>##

ls -la .
-rw-r-----  1 user group        33659 Nov  3 14:49 a
drwxr-x---  3 user group         4096 May  3  2021 b
drwxr-x---  3 user group         4096 Dec  8 16:18 c
-rwxr-x--x  1 user group           67 Apr  5  2021 e
drwxr-x---  4 user group         4096 Nov  1 15:29 f
-rw-r-----  1 user group          798 Nov 15 17:00 g