#!/usr/bin/perl -w

use strict;
use Data::Dumper;

# create a complex data type

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 Data::Dumper->Dump([$r], ['myvarname']);