my $i = 0;

for my $w ('a'..'b') {				#als a2 bezeichnet
	for my $x ('a'..'c') {			#als b3 bezeichnet
		for my $y ('a'..'a') {		#als c1 bezeichnet
			for my $z ('a'..'c') {	#als d3 bezeichnet
				$i++;
				print "$w $x $y $z\n";
			}
		}
	}
}

print $i ."\n";