Add todo-test for GH 16665 (surprising precedence issue: sort f()->@*)

Author: zb226

t/run/todo.t

@@ -290,6 +290,12 @@ TODO: {
     is($?, 0, 'No assertion failure; GH 16522');
 }
 
+TODO: {
+    local $::TODO = 'GH 16665';
+    my $results = fresh_perl('sub f {[1,2,3]}; print sort f()->@*', {});
+    is($results, '123', 'function return value sorted before postfix dereference; GH 16665');
+}
+
 TODO: {
     todo_skip "Test needs -DDEBUGGING", 1 unless $is_debugging_build;
     local $::TODO = 'GH 16863';