I always found the code to do this WITH a loop quite funny in fact:

my $work = \$hash;
$work = \$$work->{$_} for @a;
$$work = 1;
  • ... Zhuang Li
    • ... Jeff Yoak
    • ... Uri Guttman
      • ... Aaron Sherman
        • ... Uri Guttman
    • ... Vladi Belperchinov-Shabanski
      • ... Alexandre Jousset
        • ... Суханов Вадим
          • ... Alexandre Jousset
    • ... Ton Hospel
      • ... Yitzchak Scott-Thoennes
    • ... Yitzchak Scott-Thoennes
      • ... Alexandre Jousset
        • ... Yitzchak Scott-Thoennes
          • ... Alexandre Jousset
    • ... Andrew Pimlott
      • ... Alexandre Jousset
        • ... Andrew Pimlott
          • ... Alexandre Jousset
            • ... Alexandre Jousset

Reply via email to