$ENV{FOO} = 1;

my $ref = \%ENV;

# Change something in %ENV
$ENV{FOO} = 2;

print $ref->{FOO}, "\n";   # prints 2.