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