Help for this page
my %test; my @predetermined; ... } sort {$a <=> $b} @results; say for (@results);
push @ {$pop{$element{interactions}}}, $pair;
my %pop = ( 0 => {status => "0", interactions => []}, 1 => {status => "0", interactions => []},