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