Select Code to Download

use strict;
use warnings;
...
} @things_to_sort;

print Dumper \@sorted;

@sorted = sort {
       $a->{title} eq "THIS BOOK FIRST" && -1
...
    or $a->{author}  cmp $b->{author} 
    or $a->{title}   cmp $b->{title}
} @things_to_sort;