Select Code to Download

  sub rp($$$)
  {
    my $array_name = shift;
...
    my @v = split / */, "aeiou";
    return map { $c[ rp("c",@c,rand @c) ], $v[ rp('v',@v,rand @v) ] } 
+1..4;
  }