@BOYnames = ( "Michael", "Joseph", "Mark", "David", "Stephen",
	      "Robert", "Charles", "George", "Andrew", "Matthew",
	      "Ellis");

# old list:
# ("Joseph", "Charles", "Anthony", "John", "Robert", "Mark",
# "Justin", "Michael", "Augustine", "Jeremiah", "Dominic", "Martin",
# "Stephen");

@GIRLnames = ( "Rebecca", "Anna", "Grace", "Mary", "Maura",
	       "Margaret", "Susanna", "Jane", "Sophia", "Monica",
	       "Claire", "Caroline", "Charlotte", "Rose", "Elaine",
	       "Abigail");

# old list:
# ("Sophia", "Margaret", "Jane", "Rose", "Emily", "Juliana", "Grace",
# "Anna", "Anne", "Monica", "Kathleen", "Frances", "Mary", "Maura",
# "Theresa", "Cecilia", "Rebecca");

sub girls {
  foreach $name1 (@GIRLnames) {
    $firstname = $name1;
    foreach $name2 (@GIRLnames) {
      $middlename = $name2;
      $fullname = $firstname . " " . $middlename unless ($firstname eq $middlename);
      push (@names, $fullname . " ". "White") unless $seen{$fullname}++;
    } #endforeach
  } #endforeach
}

sub boys {
  foreach $name1 (@BOYnames) {
    $firstname = $name1;
    foreach $name2 (@BOYnames) {
      $middlename = $name2;
      $fullname = $firstname . " " . $middlename unless ($firstname eq $middlename);
      push (@names, $fullname . " ". "White") unless $seen{$fullname}++;
    } #endforeach
  } #endforeach
}

# &boys;
&girls;

while (@names) {
	$name = splice(@names, rand @names, 1);
	print "$name\n" unless $sawItAgain{$name}++;
} #endwhile