sub birth {
  my ($birthage, $birthgender) = @_;
  for my $i ( 0..$n) {
    push(@$birthage, 0);
    push(@$birthgender, 1);
  }
}

birth(\@age,\@gender);

sub birth {
    my (@birthage, @birthgender);
    for my $i (0..$n){
        $birthage[$i]=0;
        $birthgender[$i]=1;
    }
    return(\@birthage, \@birthgender);
}

my ($age_ref, $gender_ref) = birth();
push(@age, @$age_ref);
push(@gender, @$gender_ref);

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

my $value = 5;
my $val_ptr = \$value;
print $$val_ptr; # der wert wird wiedergegeben

my @value = qw(1 2 3);
my $val_ptr2 = \@value;
print @$val_ptr2; # die werte aus'm array wird wiedergegeben

int(rand(2));
int(rand(1)+0.5);
int(rand($beliebiger_wert))%2;