$n=100 #Anfangsanzahl an Tieren
for my $i ( 0 .. $n ){
    $age[$i] = int(rand(10));
} 

for my $t ( 0 .. 9 ){ #Zeitraum 10 Jahre
    for my $i ( 0 .. $n ){
        if ($age[$i]>=10){
            next;
            $age[$i]++; #Tiere werden pro Jahr ein Jahr älter
        }
    }
}