Select Code to Download

use File::Spec;
my  %cache;
...
foreach my $newest_file_in_directory (map {$$_[0]} values %cache) {
    ... process file ...
}