Select Code to Download

use strict; 
use warnings;
...
    }

print for @column;

 
                        if(abs($count)>=7) {
             chomp($column[$_]);
...
                   $column[$number] = $column[$number]."\tOUT\n";     
+  #OUT if < 8
                   $number++;
             }