just as I was arduously composing this, which does roughly the same:

my %latest;
for (sort <INFO>) { # by date
    my ($date, $path) = split "/", $_, 2;   # assuming these are compl
+ete paths
    $latest{$path} = $_; # newer overwrites older
}

# output ordered by "path" values
print $latest{$_} for sort keys %latest;
[download]