my @i=(1,2);
my @j=(3,4);
my @a = map {[$i[$_],$j[$_]]} 0..$#i;
foreach my $ij (@a){
	my ($i, $j) = @{$ij};
	say $i;
	say $j;
}