open(ENVIRONMENTS, "environments.txt");
while(<ENVIRONMENTS>){
my $line = $_;
chomp($line);
push @{$Envs->{data}}, [$line];