exercice 3: noms et ages a partir d'un fichier

# exercice 3
use strict;
use warnings;

my @noms;
my @ages;

# importer les donnees
while (<>) {
  chomp;
  my ($nom, $age) = split ' ';
  push @noms, $nom;
  push @ages, $age;
}

# afficher les donnees
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";
}