#!/usr/bin/perl -w

@common = qw(butt clown);
@words1 = (@common, qw(smarty anal crotch groin slut hat cake rectum turd man));
@words2 = (@common, qw(pope train boat hat goblin orc midget elf bag loaf fish gerbil fungus head face foot maggot munchkin car person king master lord towel muncher puppet turnip berry boat flap pipe stick hat goat fairy troll brain nugget pirate climber jockey avenger raider ranger ninja trooper waddle knocker rag buffet));

$word1 = $words1[rand(@words1)];

do {
  $word2 = $words2[rand(@words2)];
} while($word1 eq $word2);

print $word1 . $word2 . "\n";
