@status = (
   map  { $_->[0] }
   sort { $a->[1] <=> $b->[1] }
   map  { [ $_, stat("$target_dir\\$_"))[9] ] }
   @status
);