use strict;
use warnings;

for( 1 .. 100 ) {
    no strict 'refs';
    @{'H' . $_} = ();
}

##</code><code>##

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