@sorted_by_size = 
  map  { pop @$_ } 
  sort { $a->[0] <=> $b->[0] } 
  map  { [-s $_ , $_ ] } 
  @files;