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