foreach $var (sort keys %ENV)  {

     print "$var => $ENV{$var}\n";

}