Select Code to Download

# Read names, chop off numbers
my @names = map /\.(.*)/, <DATA>;
...
  printf "Group $_: %s and %s are partners\n", splice(@names, rand(@na
+mes), 1)
  , splice(@names, rand(@names), 1);
}

  printf "Group $_: %s and %s are partners\n", shift(@names), splice(@
+names, rand(@names), 1);