#!/usr/bin/perl -w

foreach $key (sort {$b cmp $a} keys %ENV) {
    print "$key = $ENV{$key} \n"; }