18 lines
288 B
Perl
18 lines
288 B
Perl
|
#!/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);
|