my ($dy, $dm, $dd) = N_Delta_YMD(@array_birth, @array_death);
print "$dy years, $dm months, $dd days\n";