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;