use strict;
use warnings;
my @H;
for( 1 .. 100 ) {
    push @H, [];
}