@consonants = ('p','t','k','b','d','g','f','s','z','m','n','l','r');
@vowels = ('a','e','i','o','u');
$number_of_words = 0;
for ($c1 = 0; $c1 <= $#consonants; $c1++) {
	for ($v1 = 0; $v1 <= $#vowels; $v1++) {
		for ($c2 = 0; $c2<= $#consonants; $c2++) {
			for ($v2 = 0; $v2<= $#vowels; $v2++) {
				print "$consonants[$c1]$vowels[$v1]$consonants[$c2]$vowels[$v2]\n";
				# Add one to the number of words
				$number_of_words++;
			}
		}
	}
}
 print "\nGenerated a total of $number_of_words words\n";