# This is a loop to get the motif template from origin8 my @Motif = split(//,$origin[$y]);