exercice 2: noms et ages

# exercice 2
use strict;
use warnings;

my @noms = qw / Aba Bibi Charles Damien /;
my @ages = qw / 34 12 52 64 /;

my ($i, $age, $etape) = (0, 0, 0);

$etape++; print "$etape. Les ages de tout le monde:\n";
for ($i = 0; $i < @noms; $i++) {
  print "$noms[$i] : $ages[$i]\n";
}

$etape++; print "$etape. Travailleurs:\n";
for ($i = 0; $i < @noms; $i++) {
  $age = $ages[$i];
  if ($age >= 18 && $age < 65) {
    print "$noms[$i] : $ages[$i]\n";
  }
}

$etape++; print "$etape. Un an passe...:\n";
for ($i = 0; $i < @ages; $i++) {
  $ages[$i]++;
}

$etape++; print "$etape. Les ages de tout le monde:\n";
for ($i = 0; $i < @noms; $i++) {
  print "$noms[$i] : $ages[$i]\n";
}

$etape++; print "$etape. Travailleurs:\n";
for ($i = 0; $i < @noms; $i++) {
  $age = $ages[$i];
  if ($age >= 18 && $age < 65) {
    print "$noms[$i] : $ages[$i]\n";
  }
}

$etape++; print "$etape. Verification:\n";

if (@noms != @ages) {
  print "attention: nombre de noms = ", scalar @noms, " different de nombre ages = ", scalar @ages, "\n";
}