Here is a portion of my perl script:
my $input = 'C:\Documents and Settings\CheplakM\My Documents\Stk 6.0\STK scripts\anad1_matt.txt';
my @output;
open (FILE, "$input");
my @array = <FILE>;
for (@array) {
my ($col1, $col2, $col3, $col4, $col5, $col6, $col7, $col8) = split(/\s+/, $_);
my...