#!/usr/bin/perl -w

use strict;
use Data::Dumper qw(Dumper);  # import the Dumper() function

my @a = (
    'hello, world',
    1234.56,
    [ 2, 4, 6 ],
    { one => 'first', two => 'second' }
);

# create a reference to it

my $r = \@a;

# dump it out
print Dumper($r);