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

for (sort $sorter @array) {
    ...
}