while (my ($id1, $text) = ...) { ... }