I'd use Perl 6.

my @results = sort { complex_operation($^a) } @list;
[download]

If you pass Perl 6's sort a block that takes a single argument, it will use it as a key for sorting the data, as a ST would.