# 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];