Select Code to Download

$config::fee="FEE"
$config::fi="FI"
$config::fo="FO"
@config::fum=qw / fee fi fo fum /

my $namespace = "here";
while (<DAT>) {
    s/([\$\@\%])/$1$namespace\::/;
    eval $_;
}

# config:
{
...
  fo=>"FO",
  fum=>[qw/ fee fi fo fum /],
}

my $config_hr = do 'datafile.txt';