print FH $key, " ", sprintf("%30s", $ENV{$key});