Select Code to Download

if(@array>14) {
     print STDOUT "$array[13]\t$array[14]\n";
     print OUTFILE ....
}

while(<FILEHANDLE>) {
    next if /------/;  # skip divider line
...
    next if /^$/;      # skip blank lines
...
}