#!/usr/bin/env perl 
#===============================================================================
#
#         FILE: script2.pl
#
#        USAGE: ./script2.pl  
#
#  DESCRIPTION: Adsense name finder.
#
#      OPTIONS: ---
# REQUIREMENTS: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: Stefan Suhren (su), suhren.stefan@fh-swf.de
# ORGANIZATION: FH Südwestfalen, Iserlohn
#      VERSION: 1.0
#      CREATED: 02.10.2015 10:56:07
#     REVISION: ---
#===============================================================================

use strict;
use warnings;
use utf8;

my @buchstaben1 = ('b', 'm', 'n');
my @buchstaben2 = ('a', 'e', 'i', 'o', 'u');
my @buchstaben3 = ('b', 'c', 'd', 'x', 'y', 'z');

printf "Buchstaben 1: @buchstaben1\n";
printf "Buchstaben 2: @buchstaben2\n";
printf "Buchstaben 3: @buchstaben3\n\n";

my $zahl = 0;

foreach my $i1 (@buchstaben1)
{
	foreach my $i2 (@buchstaben2)
	{
		foreach my $i3 (@buchstaben3)
		{
			$zahl++;

			printf $i1 . $i2 . $i3 . " "; 
			
			if ($zahl % 8 == 0 )
			{
				printf "\n";
			}
		}
	}
}

printf "\n\n$zahl Woerter erzeugt";