Consider the approach of simply running the case...esac expressions through your shell and then printing all the relevant variables.

Usually, it's easier to run a script through the existing shell instead of rebuilding what the shell does in Perl.