Select Code to Download

$root = { value => [ ... ]};

{ type => 'items', value => [ ... ]}   # and other key-value pairs
{ type => 'foo',   value => { ... }}   # and other key-value pairs

sub foobar {
    my $href = shift;
...
            : $_ 
    } @{ $href-> { value }}];
}

sub foobaz {
    my $href = shift;
...
        SPLIT_IF_FOO( $_ )
    } @{ $href-> { value }}];
}

sub fooqux {
    $aref = shift;
...
        SPLIT_IF_FOO( $_ )
    } @$aref
}

sub fooquux {
    $aref = shift;
...
        $i += $#list
    }
}