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