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

##</code><code>##

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