Language Basics Perl

while(($key, $value) = each(%ENV)) {
    print "$key => $value\n";
}