The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
$VAR1 = {
    a   => 'b',
    foo => {
        one      => 1,
        two      => 2,
        three    => [ 1, 4, 9 ],
        _private => 'secret',
    },
    bar => [
        {
            foo => 'bar',
        },
    ],
};