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