@friends = shuffle @friends;
my %couple = (@friends);