for my $genome (@genome) {
  my @segements = split '', $genome;

  # do something with @segments
}