Select Code to Download

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

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