##
@sorted_by_size =
map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [$_, -s] }
@files;
####
1. Map the initial list into a list of ref to lists with the original and modified values
2. Sort the list of references
3. Map the list of ref back into a plain list with the initial values