@keys = keys %ENV;
@values = values %ENV;
while ($#keys >= 0) {
	print pop(@keys), '=', pop(@values), "\n";
}

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