my %sort = (
  by_title => \&by_title,
  by_whatever => \&by_whatever,
);
my $var = 'by_title';
for (sort { &{$sort{$var}} } @array) {
  ...
}