Select Code to Download

my %hash;

$hash{key1} = [ [0 0, 0 1, 0 0, 1 1, 0 0, 0 1,],   # first block
...
                [0 0, 0 1, 0 0, 0 0, 0 0, 0 0,],   # second block
                [0 0, 1 1, 0 0, 1 1, 0 0, 1 0,],   # third block
               ];

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

    }
}