HoA test 1: ARRAY(0x8111b78)
HoA test 1: aaa
HoA test 1: 3

##</code><code>##

# Initialisation
my %HoA = ( 'camel' => [ 'flea', 'bug-ridden', 'brown' ],
            'flea' => [ 'camel-loving', 'bug', 'too tiny to tell' ]
          );
# Adding arrays:
$HoA{'frog'}= [ 'tadpole', 'no bugs', 'green' ];
# Getting element of an array
print "A camel is: ".$HoA{'camel'}->[2];

##</code><code>##

# HoA from above
use Data::Dumper;
print Dumper(\%HoA);

##</code><code>##

$VAR1 = {
          'flea' => [
                      'camel-loving',
                      'bug',
                      'too tiny to tell'
                    ],
          'camel' => [
                       'flea',
                       'bug-ridden',
                       'brown'
                     ],
          'frog' => [
                      'tadpole',
                      'no bugs',
                      'green'
                    ]
        };