while() { chomp; if ($_=~ m/\>/) { } elsif ($_!~ m/\>/) { push @lengths, length($_); } } #### while () { chomp; push @lengths, length $_ unless />/; } #### while() { chomp; if ($_=~ m/\>/) { push @source, $_; } elsif ($_!~ m/\>/) { push @source, $_; } } #### chomp, push @source, $_ while ;