while (my $line = <F>) {
        chomp($line);
        <F>; # skip firts line of phylip

##</code><code>##

<F>; # skip first line of phylip
while (my $line = <F>) {
        chomp($line);