#!/usr/bin/perl

@foren=("Civ","Det","Ach",
"Int","Gall","Jin",
"Ama","Ni","Khan",
"Brut","Seb","Vher");
@surn=("ire","eis","Ach",
"aki","ente","-Mei",
"rr","-kunni","id",
"or","iestor","okior");

$x=0;
foreach $first(@foren) {
foreach $last(@surn) {
$x++;
print "$x : $first$last\n";
}
}
exit 0;