D:\DATA\Projekte>type test.pl

use strict;
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" );

D:\DATA\Projekte>perl -w test.pl
HoA test 1: ARRAY(0x1b9f0bc)
HoA test 1: aaa
HoA test 1: 3