If I wanted to avoid the conditional operator, it would be because I had many options. In that case, I would use a lookup table.

my $sorter = $lkup{$method}{$direction};

for (sort $sorter @array) {
    ...
}
[download]