## increment the sequencer.
    $HoA{sequence} = 0 unless exists $HoA{sequence};
    my $i = ++$HoA{sequence};
    print ("HoA sequence: $HoA{sequence} \n");

    my $date = strftime('%d-%b-%Y %R',localtime);
    $HoA{$i} = [ ($date), map {escape(param($_))} (@FIELDS) ];

    print ("HoA newvalue $i: $HoA{$i} \n" );
    print ("HoA newvalue $i: $HoA{$i}[0] \n" );
    print ("HoA newvalue $i: $HoA{$i}[1] \n" );
    print ("HoA newvalue $i: $HoA{$i}[2] \n" );
    print ("HoA newvalue $i: @{ $HoA{$i} } \n" );
    print ("HoA newvalue $i: " . @{ $HoA{$i} } ."\n" );

    $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}[1]  ."\n" );
    print ("HoA test $i: " .   $HoA{test}[2]  ."\n" );
    print ("HoA test $i: @{ $HoA{test} } \n" );        # returns list
    print ("HoA test $i: " .  @{ $HoA{test} } ."\n" ); # returns count