Apart from xmath's excellent answer, this might also be a possible solution - depending on what you are trying to do:

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

  # do something with @segments
}
[download]

-- Hofmator