The same can be achieved with a shell alias or function calling a Perl function and exporting the returned variable value pairs.

with less code and side effects