jeden taky jednoduchy :-)
tie mena na prekvapenie aj celkom dobre vyzeraju :-)

#!/usr/bin/perl -l

my $vow = [ qw( a e i o u y ) ];
my $con = [ grep { ! {map {$_=>$_ } @$vow}->{$_} } 'a' .. 'z' ];

print map {$_->[int rand @$_] } $con, $vow, $con, $vow, $con, $con;