$pair = int(rand($pop));
	redo if $test{$element.'-'.$pair} or $test{$pair.'-'.$element} or $pair==$element;
	redo if $pair == (exists @{$pop{$element}{interactions}});