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

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

print Dumper $ref,$oth_ref

__OUTPUT__
$VAR1 = \3;
$VAR2 = \3;

##</code><code>##

@a = (\1,\2,\3,\5,\6,\7,\8,\9);
##</code><code>##

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

my @array = \(1 .. 3, 5 ..9);
my @array2 = \(1,2,3,5,6,7,8,9);
my @array3 = (\(1 ..3),\(5,6,7,8,9));

print Dumper \@array,\@array2,\@array3

__OUTPUT__
$VAR1 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];
$VAR2 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];
$VAR3 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];