use strict;
use warnings;

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