my @i=(1,2);
my @j=(3,4,5);
my @len = sort(scalar(@i),scalar(@j));
my @a = map {[$i[$_],$j[$_]]} 0..$len[-1];
foreach my $ij (@a){
	my ($i, $j) = @{$ij};
	print $i."\n";
	print $j."\n";
}