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