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