#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my $foo   = 'test';
my @array = qw/ this is an array /;
my %hash  = (
    one   => 'une',
    two   => 'deux',
    three => \&some_subroutine,
    four  =>
    {
        uh => 'oh',
        name => [qw/Publius Ovidius Naso/]
    }
);
my $bar;
print Dumper $foo, \@array;
print Dumper \%hash;
print Dumper $bar;

##</code><code>##

$VAR1 = 'test';
$VAR2 = [
          'this',
          'is',
          'an',
          'array'
        ];
$VAR1 = {
          'one' => 'une',
          'three' => sub { "DUMMY" },
          'two' => 'deux',
          'four' => {
                      'uh' => 'oh',
                      'name' => [
                                  'Publius',
                                  'Ovidius',
                                  'Naso'
                                ]
                    }
        };
$VAR1 = undef;