Description:
------------
Our project uses the Perl Interpreter to access a Perl package
that returns an array reference that will be displayed by a PHP class.

The problem is that the Perl Interpreter attempts to free non-existent
shared strings during global destruction.
This dumps over 12,000 lines of text into the Apache log and
impacts performance.


Reproduce code:
---------------
$perl = new Perl();

try {
  $perl->eval('use lib "includes/modules/";');
  $perl->eval('use Assessment;');
  $dAr=$perl->{"Assessment::report"}($_POST);
}
catch (PerlException $exception) {
  echo "Perl Error: " . $exception->getMessage();
}

Assessment is a Perl package that queries a DB2 database and
returns data that is displayed in the browser.


Expected result:
----------------
The apache log file without all the error messages


Actual result:
--------------
Over 12,000 lines of text in the apache log file that look like this:

Attempt to free non-existent shared string 'exe_ext' during global
destruction.