Select Code to Download

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

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

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