while (<IFILE>) {
        chomp;
        if ($_ =~ /sequence/){
        @headerseq = split('\n',$_);