LOOP_A: for (my $i = 0; $i < @array1; $i++) {
	LOOP_B: for (my $j = 0; $j < @array2; $j++) {
		LOOP_C: for (my $k = 0; $k < @array3; $k++) {
			print "$i, $j, $k\n";
			next LOOP_A if $j == $k and $i == $k;
		}
	}
}