foreach $key (sort(keys %ENV)) { print "VARIABLE $key = $ENV{$key}\n"; }