for my $i ( 0 .. $lengthString - 1 ) {
			my $char0 = substr( $string0, $i, 1 );
			my $char1 = substr( $string1, $i, 1 );
			my $char2 = substr( $string2, $i, 1 );
			my $char3 = substr( $string3, $i, 1 );
			}
                }