print "\nFile contents:";
print @envFile;

foreach $envline (@envFile){

while ( <$in> ){