Hmm, when I run it, it prints:

$VAR1 = 'test';
$VAR2 = qw/ this is an array /;
$VAR1  = (
    one   => 'une',
    two   => 'deux',
    three => \&some_subroutine,
    four  =>
    {
        uh => 'oh',
        name => [qw/Publius Ovidius Naso/]
    }
);
$VAR1 = undef;
[download]

> munchie, the number munchin newb