for my $var (sort keys %ENV) {