# mehr/ausführlichere Fehlermeldungen
# --> besseres Programm
use strict;
use warnings;
##################################
# Funktionen #######################
##################################
sub birth{
  # variable von Funktionsaufruf übernehmen
  my $count=shift(@_);
  my @birthage;
  my @birthgender;
  for my $i (0..$count){
     $birthage[$i]=0;
     $birthgender[$i]=1;
  }
  #Referenzen übergeben
  return (\@birthage,\@birthgender);
}
##################################
# Programm ########################
##################################

# Variablem bitte initialisieren.
my @age;
my @gender;
my $n=10;

for my $i (0..5){
  $age[$i]=int(rand(10));
  $gender[$i]=int (rand (1));
}

# Funktion ausführen
my ($birthage,$birthgender)=birth($n);

# zu den Arrays hinzufügen
push (@age, @$birthage);
push (@gender, @$birthgender);