while ( <INFILE> ) {
    my $record = <INFILE>;
    # stuff goes here
}