my $rec; do_something( $rec) while read(FILE, $rec,$reclength);