Help for this page
my ($read, $found); for (;;) { ... } ... do something with $read, $found and @foos ...