Or perhaps more economically,

while(my ($key, $val) = each %ENV) {
    print "$key = $val\n";
}
[download]

since you're not sorting the keys anyway.

Makeshifts last the longest.