Correct word deletion in original test

Per comment from author in #22275, the
code should have read '{ eval $switches }' as in other test files.

Making this correction eliminates the "Odd number of elements in
anonymous hash" warning which was the concern in that pull request.

Fixes GH #22275.

t/run/todo.t

@@ -33,7 +33,7 @@ TODO: {
         "abcde5678" =~ / b .* (*plb:(*plb:(.{4}))? (.{5}) ) .$ /x;
         print $1 // "undef", ":", $2 // "undef", "\n";
         EOF
-    "undef:de567\nundef:de567", { $switches }, "");
+    "undef:de567\nundef:de567", { eval $switches }, "");
 }
 
 done_testing();