"...they're already set"

Yes. D'oh! I don't known why i wrote this nonsens :-(

# output shortend
$anchestry =3 ;
# last unless $ppid;

{
  9675 => [
    bless({
      cmndline => "/usr/sbin/mysqld",
      pid      => 9675,
      ppid     => 9473,
     }, "Proc::ProcessTable::Process"),
    bless({
      cmndline => "/bin/sh /usr/bin/mysqld_safe",
      pid      => 9473,
      ppid     => 1,
    }, "Proc::ProcessTable::Process"),
    bless({
      cmndline => "init [3]  ",
      pid      => 1,
      ppid     => 0,
     }, "Proc::ProcessTable::Process"),
    undef, <-- last slot
  ],
}

$anchestry = 3 ;
last unless $ppid;
{
  9675 => [
    bless({
      cmndline => "/usr/sbin/mysqld",
      pid      => 9675,
      ppid     => 9473,
     }, "Proc::ProcessTable::Process"),
    bless({
      cmndline => "/bin/sh /usr/bin/mysqld_safe",
      pid      => 9473,
      ppid     => 1,
    }, "Proc::ProcessTable::Process"),
    bless({
      cmndline => "init [3]  ",
      pid      => 1,
      ppid     => 0,
     }, "Proc::ProcessTable::Process"),
   ],  # OK
}
[download]

It works.

Thank you and best regards, Karl