#!/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;