my $len=length pack I => 1;
my @sorted=map substr($_,$len),
      sort map pack(I => (stat)[9]) . $_, @files;