#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $n=5; #Anfangsanzahl an Tieren
my @age;

for my $i ( 0 .. $n ){
    $age[$i] = int(rand(10));

}

print "Beginn: ", Dumper(\@age),"\n";

for my $t ( 0 .. 3 ){ #Zeitraum 10 Jahre
    for my $i ( reverse 0 .. $n ){
        $age[$i]++;
        if ($age[$i] >= 11){
            splice @age, $i, 1;
        }
    }
    print "Nach ", $t+1, " Jahren: ", Dumper(\@age),"\n";
}

Beginn: $VAR1 = [
          1,
          4,
          5,
          6,
          9,
          2
        ];

Nach 1 Jahren: $VAR1 = [
          2,
          5,
          6,
          7,
          10,
          3
        ];

Nach 2 Jahren: $VAR1 = [
          3,
          6,
          7,
          8,
          4
        ];

Nach 3 Jahren: $VAR1 = [
          4,
          7,
          8,
          9,
          5,
          1
        ];

Nach 4 Jahren: $VAR1 = [
          5,
          8,
          9,
          10,
          6,
          2
        ];