t/run/todo.t: Avoid "Odd number of elements" warning

The third argument to t/test.pl's fresh_perl_is() function is an
anonymous hash; therefore, it must have an even number of elements.  In
this case, that even number would be 0.  As it stood, we were getting
this warning:

"Odd number of elements in anonymous hash at run/todo.t line 30."

t/run/todo.t

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