my @sorted =
  map { $_->[0]}
  sort { $b->[1] <=> $a->[1] }
  map { [ $_, (stat $_)[9] ] }
  @allfiles;