use Algorithm::Combinatorics qw/combinations/;
@names = ('rita', 'sue','bob', 'daisy');
my $r=combinations(\@names,2);
while(my $res=$r->next){
print "@$res\n";
}