my @segment1 = split ('', $genome[0]);
my @segment2 = split ('', $genome[1]);
my @segment3 = split ('', $genome[2]);
my @segment4 = split ('', $genome[3]);
my @segment5 = split ('', $genome[4]);