#!/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');

foreach my $i1 (@buchstaben1)
{
	foreach my $i2 (@buchstaben2)
	{
		foreach my $i3 (@buchstaben3)
		{
			printf $i1 . $i2 . $i3 . " "; 
		}
		printf "\n";
	}
}