use strict;
use warnings;

my $RAvH = [
            { 
             name => "Bobo", 
             gender => "male"
            },
            { 
             name => "Bibo", 
             gender => "male"
            },
            { 
             name => "Bibi", 
             gender => "female"
            },
           ];
          
push (@{$RAvH}, {name => "mars", gender => "male"});

# gruselige Variante:
print ${$RAvH}[2]{name}, "\n";
# Ergebnis: Bibi

# weniger gruselig:
print $RAvH->[1]{name}, "\n";
# Ergebnis: Bibo

# am wenigsten gruselig:
print $RAvH->[0]->{name}, "\n";
# Ergebnis: Bobo

my %M = %{$RAvH->[3]};
print $M{name}," ",$M{gender},"\n";