Select Code to Download

@status = sort {
   my $mtime_a = (stat("$target_dir\\$a"))[9];
   my $mtime_b = (stat("$target_dir\\$b"))[9];
   $mtime_a <=> $mtime_b
} @status;

@status = (
   map  { $_->[0] }
...
   map  { [ $_, stat("$target_dir\\$_"))[9] ] }
   @status
);