Help for this page

Select Code to Download

Select or download this

my %pop = (
    0 => {status => "0", interactions => [], statuscount => "0"},
    1 => {status => "0", interactions => [], statuscount => "0"},

Select or download this

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