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

for my $elem (@{$RAvH})
  { dumpit($elem); }

sub dumpit 
  {
  my $ref = shift;
  if(ref($ref) eq 'HASH')
    {
    print "HASH:\n";
    foreach (sort (keys %{$ref}))
      { print "\t $_ => $ref->{$_}\n"; }
    }
  elsif(ref($ref) eq 'ARRAY')
    {
    print "ARRAY:\n";
    for my $i (0 .. @{$ref}-1)
      { print "\t $i: $ref->[$i]\n"; }
    }
  else
    { 
    print "SKALAR:\n";
    print "\t ${$ref}\n"; 
    }  
  }