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