$file_size_sort = new Sort::Schwartzian
       left => '-s $a', op=>'<=>', right =>'-s $b';

##</code><code>##

  @sorted = $file_size_sort->(@files);

##</code><code>##

  $sort_by_score = new Sort::Schwartzian
       left => '$b->score', op=>'<=>', right =>'$a->score';