#### Define like:
my %sort_by = (
    ( map { $_ => sub { $a->{$_}{order} <=> $b->{$_}{order} } }
          qw(title subject author isbn)),
};
#### Use like:
    my @titles = sort &{$sort_by{title}} @books;