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