my @sorted=map substr($_,4),
      sort map pack(N => (stat)[9]) . $_, @files;