Select Code to Download

sub _dump {
    my $path = shift;
...
    }
    $dump . '}';
}

my $ref = {
    a => [ 1, 2, 3 ],
    b => [
...
};

print _dump($ref);