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