Select Code to Download

use strict;
use warnings;
...
    no strict 'refs';
    @{'H' . $_} = ();
}

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