my @sorted_files
  = map {$_->[0]}
    sort {$b->[1] <=> $a->[1] or $a->[0] cmp $b->[0]}
    map {[$_, -s]} @files;