%ENV = map { ($_, $ENV{$_}) } grep exists($ENV{$_}), qw(THIS THAT THE_OTHER);