#### while (my $record = <$FH>) { ... process each record ... }