my @segments = map [split //], @genome;

##</code><code>##

my @genome = ("abc", "def", "ghijkl");
my @segments = map [split //], @genome;
for my $seg (@segments) {
	print "Segment: @$seg\n";
}

##</code><code>##

Segment: a b c
Segment: d e f
Segment: g h i j k l