my @files;
while(<>) {
    chomp;
    push @files, $_;
}
[download]

is a long winded way to say

chomp( my @files = <> );
[download]

And here's an alternate version that should be much faster for long lists:

my @sorted = map /.*\0(.*)/s,
             sort
             map lc(dirname($_))
               . "\0"
               . lc(basename($_))
               . "\0"
               . $_,
             @files;
[download]