my $id;   # ??
foreach my $window ( @{ $data{$id} } ) {

  # only pass windows with > min number of stats (i.e. >1 for now), an
+d
  # of course we also ignore any 'undef' windows.
  next unless scalar @{ $data{$id} }[$window] >= 2;

    foreach my $individual ( keys(%data) ) {

##</code><code>##

foreach my $id ( keys %data ){
  foreach my $window ( @{$data{$id}} ){

##</code><code>##

foreach my $id ( keys %data ){
  foreach my $window ( 0 .. $#{$data{$id}} ){
    next unless scalar @{ $data{$id}[$window] } >= 2;

##</code><code>##

\@{ $data{$id}[$window] }