#!/usr/bin/perl;

srand( time() ^ ($$ + ($$ << 15)) );
my @v = qw ( a e i o u y );
my @c = qw ( b c d f g h j k l m n p q r s t v w x z );

for (1..12) {
    my ($flip, $str) = (0,'');
    $str .= ($flip++ % 2) ? $v[rand(6)] : $c[rand(20)] for 1 .. 9;
    $str =~ s/(....)/$1 . int rand(10)/e;
    $str = ucfirst $str if rand() > 0.5;
    print "$str\n";
}

__DATA__
Fuco1wipon
name5jeweb
Vute2tecis
Paco8podec
wopu3wasig
lune2fosuk
Same2jamek
Qeqy0nebit
rizi5muwuj
Qone7tatat
Daho7cejab
fesi2jideq