Select Code to Download

sub x {
    my $aref = shift;
...
        unless @$aref and $aref->[ -1 ]{ name } eq $name;
    x( $aref->[ -1 ]{ children } ||= [], @kids ) if @kids;
}

#! perl -slw
use strict;
...
foo / qux / three
foo / qux / four
five

c:\test>junk9 | more
$VAR1 = [
...
          }
        ];