Help for this page

Select Code to Download


  1. or download this
    my $id;   # ??
foreach my $window ( @{ $data{$id} } ) {
...
  next unless scalar @{ $data{$id} }[$window] >= 2;

    foreach my $individual ( keys(%data) ) {
  2. or download this
    foreach my $id ( keys %data ){
  foreach my $window ( @{$data{$id}} ){
  3. or download this
    foreach my $id ( keys %data ){
  foreach my $window ( 0 .. $#{$data{$id}} ){
    next unless scalar @{ $data{$id}[$window] } >= 2;
  4. or download this
    \@{ $data{$id}[$window] }