foreach my $key (%ENV) { print "$key => $ENV{$key}; }