my @numbers=(1,2,3);
my @letters=("a","b","c");

for(0..$#numbers){
	my $arr_curr_val= $numbers[$_];
	for(0..$#letters){
		print "$arr_curr_val\t$letters[$_]\n";
		}
	}