123
while( (my $dt, @lines) = each %ENV ) { ...} # while
while( my($key, $value) = each %ENV ) { ...} # while