Select Code to Download

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

chomp( my @files = <> );

my @sorted = map /.*\0(.*)/s,
             sort
...
               . "\0"
               . $_,
             @files;