for my $i (...) {
	push @iter, $i;
	...
	for my $j (...) {
		push @iter, $j;
		...
		for my $k (...) {
			push @iter, $k;
			...
			for my $l (...) {
				push @iter, $l;
				...
			}
		}
	}
}