foreach my $key (keys %ENVY) {
	print "$key: $ENV{$key}\n";
	}