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