note roboticus <p>[ananassa]:</p> <p>Your code is assuming that you're getting seven columns from your split on line 22. Then you're using several of those to do a regex match. However the last line of your file, for example, is likely empty (because many files end in a '\n'), causing you to have fewer than 2 columns fields array.</p> <p>You might try something like:</p> <c> ... my @fields = split /\t/, $item; next if @fields < 7; ... </c> <p>...[roboticus]</p> <p><i>When your only tool is a hammer, all problems look like your thumb.</i></p> 1004901 1004901