my $string1="hallohallohallo";
my $string2="hannahannahanna";
my @array1;
my @array2;
push(@array1,$string1);
push(@array2,$string2);
my $count=0;
for my $i (0..$#array1){
	if($i % 5 == 0){
		for my $j($count..$i){
			print $array1[$j]."\n";
			print $array2[$j]."\n";
		}
		$count=$i;
	}
}