if ($_ =~/^(\w+);(\d+);$/ && $_ !~/^\#/) {
  print "DEBUG: use constant $1 => $2;\n";
  eval "use constant $1 => $2";
  #...

##</code><code>##

use strict;
require constant;

while (<DATA>)
{
    if (/^(\w+);(\d+);$/)
    {
        #eval "use constant $1 => $2";
        constant->import({$1 => $2});
    }
}

print MEMINUSEWAR();

__DATA__
MEMINUSEWAR;2000000;