while (<IFILE>) {
        ...
        elsif ($_ =~ /^(\w*)$/) {
        @sequence = $_;
        }
        ...
        foreach my $sequence(@sequence) {
        print OFILE1 "$headerseq\n$sequence\n";

       }
        ...
}