for my $w (2..2) {
	for my $x (2..3) {
		for my $y (1..4) {
			for my $z (1..3) {
				$i++;
				print "$w $x $y $z\n";
			}
		}
	}
}