my @vals = sort values %ENV;
my @keys = sort keys %ENV;
while( my($i,$e) = each @keys){
    print "$e => $vals[$i]\n";
}