@config = map {s/oldtext/newtext/g; $_; } @config;

for $t (0 .. $#config)
{
print"$config[$t][0]\n";
}