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