sub eligible {
  my ($jj, $mm, $aaaa) = @_;
  # Votre code ici
}

$_ = <STDIN>;
print eligible /(\d+)\s(\d+)\s(\d+)/;