use vars qw(%HoA);
## increment the sequencer.
    $HoA{sequence} = 0 unless exists $HoA{sequence};
    my $i = ++$HoA{sequence};

    $HoA{test} = [ "aaa", "bbb", "ccc" ];

    print ("HoA test $i: " .   $HoA{test} ."\n" );
    print ("HoA test $i: " .   $HoA{test}->[0]  ."\n" );
    print ("HoA test $i: " .  @{ $HoA{test} } ."\n" );

##</code><code>##

HoA test 11: ARRAY(0x87070a0)
HoA test 11: 
HoA test 11: