You can say, use vars qw/@ll %those $variables/; at the top and your script will be just as it was.

The better solution is to tighten up scopes and declare variables with my in the scopes where they are used.

Btw, perl beats js like a red-headed stepson for text editing.