@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++) {
				$word = "$consonants[$c1]$vowels[$v1]$consonants[$c2]$vowels[$v2]";
				unless ($word =~ /$consonants[$c1].$consonants[$c1]/) {
					print "$word\n";
				}
			}
		}
	}
}