my @LINES=<DATA>;
my $tLINES=@LINES;
foreach $RECORD (@LINES[0..$tLINES-1]) {
    ...
    }

##</code><code>##

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