my @LINES = <PROPERFILEHANDLE>;
foreach $RECORD (@LINES) {
    ...
    }