#!/usr/bin/perl -w
use strict;

open(FH, "table") or die "Can't open file to read!:$! \n";
my $i=2;
for (my $i=2; $i<=682; $i++){
    while (<FH>){
          chomp;
          my @matrix=split; 
            my $seed=$matrix[$i];#each time I compare one column;
            next until ($seed=~/[ACGTN-]/ && (!($seed =~ /\$seed/))) {
               print "P",$i," "; 
            }#Line 23
  }
    $i=$i+1;
}until($i>682);#Line 29

close FH;

exit;