gistfile1.pl

# generate cool names
sub rand_name {

    # split alphabet characters
    my @vovels      = qw(a e i o u);
    my @consonants  = grep {not $_ ~~ @vovels} 'a' .. 'z';
    my %chars       = (a => \@vovels, p => \@consonants);

    # build name by template
    my @templates   = qw(papa paapa pappa papaa apa pap paap pappa);
    my $template    = @templates[rand @templates];
    (my $name       = $template) =~ s/./ ${$chars{$&}}[rand @{$chars{$&}}] /eg;

    return $name;
}