ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/keys

Text File | 1992-10-18 | 182 b | 10 lines

@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";
}