greg@sparky:~/test$ cat enlil1
#!/usr/bin/perl

use Data::Dumper;
use strict;
use warnings;

my $ref=\(1..3);
my $oth_ref = \(1,2,3);

print Dumper $ref,$oth_ref


greg@sparky:~/test$ ./enlil1
$VAR1 = [
          1,
          2,
          3
        ];
$VAR2 = \3;